my $pattern = 'abcdef';
my @regexes;

for (my ($i, $len) = (0, length $pattern); $i < $len; ++$i) {
    my $regex = $pattern;
    substr($regex, $i, 1) = '.';
    push @regexes, $regex;
}

say join "\n", @regexes;