#!perl -p
s;(\W.\W)(...    )   ;   $2$1