118         substr((my $pat = $word), $i, 1) = '.';