sub x{ my($s,$t,$p)=(@_,0); (join'',map{$s=~/$_/g?($p