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