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