perl -pe"s/(?<=\b\w)(\w+)(?=\w)/$~=$1;chop($~).$~/eg" file