note
Chmrr
I apparently just beat out [premchai21], the current leader, by one character:
<code>
#!/usr/bin/perl -w
use strict;
print j('Ti sats','hri et'),"\n";
sub j {
my($a,$b)=@_;$a=~s/(.)/$1.substr($b,length($`),1)/ge;return$a;
}
</code>
<p>62 characters.</p>
<p><b>Update</b>: Same basic idea as [japhy] had, but worse execution. Ahh, well.</p>
<p><b>Update 2</b>: After seeing [japhy]'s code, I can whittle it down to 40 chars. All credit for the idea goes to [japhy], though:<code>
sub j {
$_=pop;@_=split//,pop;s/./shift.$&/eg;$_
}</code>
<P> <br />perl -e 'print "I love $^X$\"$]!$/"#$&V"+@( NO CARRIER'</p>
77203
77203