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