perl -iJustanotherperlhacker, -e'$,=$";$^I=~/^(.{4})(.+)(.{7})$/x;@_=( +$1,eval{$2=~/^(.{7})(.+)?(.{4})/x;},$3);print"@_"=~/(.+)\ {2}(.+)/;' [download]
In reply to twitter japh by bageler