print 
   q|^.*(??{                                    })\z| =~
   m|^.*(??{$&ne'^.*(??{'.substr($&,7,36).'})\z'})\z|

  # outputs 1

##</code><code>##

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