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