123456789_123456789_123456789_123456789_123456789_123456
$re = q{^.*(??{$&ne'^.*(??{'.substr($re,7,-4).'})\z'&&'(?!)'})\z};