Help for this page

Select Code to Download


  1. or download this
    sub t_in_s {
($t=pop)=~s/./$&.*/g;$_[0]=~$t
}

t_in_s('abcdefghijklmnopqrstuvwxyz', 'for');
  2. or download this
    sub t_in_s {
($t=pop)=~s/./\Q$&\E.*/g;$_[0]=~$t
}