#!perl -l
sub z{my($x,$y)=@_;my$t=substr$y,0,1;my($l,$r)=split$t,$x;return$x?z($l,substr$y,1,length$l).z($r,substr$y,-length$r).$t:""}print z@ARGV