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