waiting for code to compile the other day I re-wrote one of my old japhs to be twitter compatible:

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