$ perl -MO=Deparse -e'   (not ($label.$inst) =~ /\blea\b/i)'
!($label . $inst) =~ /\blea\b/i;
-e syntax OK
~ $
~ $ perl -MO=Deparse,-p -e'   (not ($label.$inst) =~ /\blea\b/i)'
((!($label . $inst)) =~ /\blea\b/i);
-e syntax OK
~ $