Help for this page

Select Code to Download


  1. or download this
    -n $;[map{/./,/[^$&-T]/g}/(?=(.*))/g].=$_}{print@
  2. or download this
    perl -le 'print for "foo bar"=~/(?=(.*))/g'
foo bar
...
ar
r