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