perl -pe 's/(?<=\w)\w+(?=\w)/reverse$&/eg' file