http://www.perlmonks.org?node_id=76549


in reply to Re (tilly) 2: Golf: Embedded In Order
in thread Golf: Embedded In Order

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.

In Section Meditations