in reply to Golf: Embedded In Order

I'll get things started here. I don't have time for the extra credit, but this solves the first part: 
sub t_in_s {
($t=pop)=~s/./$&.*/g;$_[0]=~$t
}

t_in_s('abcdefghijklmnopqrstuvwxyz', 'for');

[download]
Although, if $t may contain non-word characters, that becomes: 
sub t_in_s {
($t=pop)=~s/./\Q$&\E.*/g;$_[0]=~$t
}

[download]

Replies are listed 'Best First'.
Re (tilly) 2: Golf: Embedded In Order
by tilly (Archbishop) on Apr 27, 2001 at 18:41 UTC
    If $s or $t can contain \n, you need a /s on both matches. But your $_[0] can be replaced with pop.

    That makes your solution turn into the 36 character: 

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

    [download]
    or 38 if you wish to add my to make it strict compliant.
[reply]
[d/l]
      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.
[reply]
[d/l]

In Section Meditations