m/^ (?: . (?! $a ) )* $end /sx