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