Select Code to Download

sub interlace {  # 52
my$x=pop;my$y=reverse+pop;$x=~s/./chop($y).$&/esg;$x   
...
sub interlace {  # 45
($_,@_)=(pop,split//,pop);s/./shift.$&/esg;$_  
}

sub interlace {  # 43
$_=shift;@_=split//,pop;s/./$&.shift/esg;$_   
}