Select Code to Download

#!/usr/bin/perl -w
use strict;
...
sub j {
my($a,$b)=@_;$a=~s/(.)/$1.substr($b,length($`),1)/ge;return$a;
}

sub j {
$_=pop;@_=split//,pop;s/./shift.$&/eg;$_
}