$re = q{^.*(??{$&ne$re&&'(?!)'})\z};