$test =~ s/(\w)(\w+)(\w)/$1 . &garble($2) . $3/eg;