<p>-2</p>
<p>sub merge{$_=pop;@_=pop=~/./g;s/./$&amp;.shift/ge;join&#39;&#39;,$_,@_}</p>
<p><blockquote type="cite">On Feb 4, 2010 3:59 PM, &quot;Nilson Santos Figueiredo Jr.&quot; &lt;<a href="mailto:acid06@gmail.com">acid06@gmail.com</a>&gt; wrote:<br><br>Menos 2 chars, abusando de variáveis especiais:<br>

<br>
sub merge{$_=pop;@_=pop=~/./g;s/(.)/$1.shift/ge;join&#39;&#39;,$_,@_}<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>&lt;<a href="mailto:acid06@gmail.com">acid06@gmail.com</a>&gt; wrote:<br>&gt; Acho que v...</font></p></blockquote></p>