my $regex = join "[^$_]*", ($_) x $limit;