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