use strict;
use warnings;

my $pattern = qr/abc/;

my $negative = qr<
  (??{ 
    /$pattern/ ? qr/\A$/ : qr//;
  })
>x;


my $text = 'abcdef';
if ($text =~ /$negative/) {
  print "matched $text\n";
}