sub t_in_s { ($t=pop)=~s/./.*\Q$&/gs;pop=~/$t/s }