<p>-2</p>
<p>sub merge{$_=pop;@_=pop=~/./g;s/./$&.shift/ge;join'',$_,@_}</p>
<p><blockquote type="cite">On Feb 4, 2010 3:59 PM, "Nilson Santos Figueiredo Jr." <<a href="mailto:acid06@gmail.com">acid06@gmail.com</a>> wrote:<br><br>Menos 2 chars, abusando de variáveis especiais:<br>
<br>
sub merge{$_=pop;@_=pop=~/./g;s/(.)/$1.shift/ge;join'',$_,@_}<br>
<font color="#888888"><br>
-Nilson<br>
</font><p><font color="#500050"><br>On Thu, Feb 4, 2010 at 3:54 PM, Nilson Santos Figueiredo Jr.<br><<a href="mailto:acid06@gmail.com">acid06@gmail.com</a>> wrote:<br>> Acho que v...</font></p></blockquote></p>