Ditch efficiency and save four strokes: :-)

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

--
John.