perl  -iJustanotherperlhacker, -e'
$,=$";$^I=~/^(.{4})(.+)?(.{7})$/x;push@_
,$1,eval{$2=~/^(.{7})(.+)?(.{4})/x;},$3;
"@_"=~/(.+)\ {2}(.+)/;print $1,$2'