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


in reply to Re: Golf: Embedded In Order
in thread Golf: Embedded In Order

But you don't need the $t! 27 chars:
seq{shift=~join".*",split//,pop}
Or 25 using /./g:
seq{shift=~join".*",pop=~/./g}
Or 33 with pathological protection:
seq{shift=~join"\E.*\Q","",pop=~/./gs}
  p