> cat negynogreedy.pl #!/usr/bin/perl $b = $a = 'Ella dijo "Ana" y yo contesté: "Jamás!". Eso fué todo.'; $a =~ s/".*?!"/-$&-/; print "$a\n"; $b =~ s/"[^"]*!"/-$&-/; print "$b\n"; > negynogreedy.pl Ella dijo -"Ana" y yo contesté: "Jamás!"-. Eso fué todo. Ella dijo "Ana" y yo contesté: -"Jamás!"-. Eso fué todo.
Casiano Rodríguez León