my $regex   = qr/ N+ | (?: (?=$allowed) . )*  . /x;