$ neil@m2 neil $ perl -e '(/(\w)(\w)(\w+)(\w)/ && print $1.$3.$2.$4." ") for @ARGV;' Hello World
Hlleo Wrlod