my $regex = '\A' . ('[^x]*?x' x $n);