# Another way -- long, but another way:
sub z(){my($s,$t,$x,$y))=($s,$t,'','');($x=chop$s,($y=chop$t)eq$x||($t.=$y))while$s;return!$t;}