-n $;[map{/./,/[^$&-T]/g}/(?=(.*))/g].=$_}{print@

##</code><code>##

perl -le 'print for "foo bar"=~/(?=(.*))/g'
foo bar
oo bar
o bar
 bar
bar
ar
r