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