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