#!perl -lpa ($_,$a)=@F;my@b;;while(s/(\w)//){@b=(@b,map"$1$_",(split//,$a))}$_="@b"