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