Hola. Tengo un problema con el siguiente código al cual quiero sacar cierta parte del texto pero por el problema de espacios no me deja.
my $re = "testaraaa
aatestar";
chomp $re;
if($re=~/testar(.*)testar/) {
print $1;
} else {
print "no\n";
}
¿ Alguien me podría ayudar ?