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