perl -pe 's:\B(\w)(\w+)\B:$2$1:g'
#        ------------------------
#        12345678 1 2345678 2 234