$ perl -MO=Deparse -e'if (not +($label.$inst) =~ /\blea\b/i) {}' unless (($label . $inst) =~ /\blea\b/i) { (); } -e syntax OK