sub t_in_s { ($t=pop)=~s/./\Q$&\E.*/g;$_[0]=~$t }