2a:<br><br>sub merge{@a=split//,shift;@b=split//,shift;join&quot;&quot;,map{$a[$_].$b[$_]}0..($#a&gt;$#b?$#a:$#b)}<br><br clear="all">Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a><br>

Sent from Rio De Janeiro, RJ, Brazil<br>
<br><br><div class="gmail_quote">Em 4 de fevereiro de 2010 11:38, Fernando Oliveira <span dir="ltr">&lt;<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>&gt;</span> escreveu:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">

<div id=":22n" class="ii gt">sub merge{@a=split//,shift;@b=split//,shift;join&quot;&quot;,map{shift(@a).shift(@b)}0..($#a&gt;$#b?$#a:$#b)}</div></blockquote></div><br>