# perl -e ' { $line=" aaa bbb ccc ddd eee fff "; $line=substr($line,index($_=$line=~tr/ /x/cr,'x'),rindex($_,'x')-length($line)+1); print qq(|$line|\n)}' |aaa bbb ccc ddd eee fff|