$ 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";'

$