#!/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><code>##

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