I realized later that I had the replacement in the wrong order, and I could save two characters:

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

So that's 34 characters.