2008/3/13 Gabriel Vieira <gabriel.vieira em gmail.com>:
> perl -E '$_=pop;$`&&say$`while//g;say while chop,$_' Perl
perl -E'$_=pop;/(.(?{say$&}))+/;say while chop' Perl
Ainda não compilei 5.10 aqui mas vou arriscar essa conversão de perl 5.8 ;)
--
edenc.vox.com