Cita:
Iniciado por monoswim Fijate colocando esto
my (@encontrados) = $linea =~ /\<a(.*?)\/a\>/;
Saludos
Nope, tampoco va a funcionar.
Código:
my $linea = '<a href="www.google.com">google</a><a ref="www.hotmail.com">hotmail</a>';
my @encontrados = $linea =~ m/(\<a(?:.*?)\/a\>)/gi;
print "$_\n" foreach @encontrados;
SALUDOS