my $negative = qr[ 
  (??{
    /^<3/ 
      ? qr/\A\z/ 
      : qr//;
  })
]x;