if (not $inst =~ /lea/i) {
  # do things
}

##</code><code>##

if (not $label.$inst =~ /\blea\b/i) {
  # do things
}

##</code><code>##

if (not (($label.$inst) =~ /\blea\b/i)) {
  # do things
}

##</code><code>##

if (not ($label.$inst) =~ /\blea\b/i) {
  # do things
}

##</code><code>##

$ perl -e 'use warnings; use strict; my $pre="foo"; my $suf="bar"; print (not (($pre.$suf) =~ /lea/i)); print "\n";'
1
$ perl -e 'use warnings; use strict; my $pre="foo"; my $suf="bar"; print (not ($pre.$suf) =~ /lea/i); print "\n";'

$