Help for this page

Select Code to Download


  1. or download this
    $ perl -MO=Deparse -e'if (not +($label.$inst) =~ /\blea\b/i) {}'
unless (($label . $inst) =~ /\blea\b/i) {
    ();
}
-e syntax OK
  2. or download this
    $ perl -MO=Deparse -e'if (not "$label$inst" =~ /\blea\b/i) {}'
unless ("$label$inst" =~ /\blea\b/i) {
    ();
}
-e syntax OK
  3. or download this
    $ perl -MO=Deparse -e'if ("$label$inst" !~ /\blea\b/i) {}'
unless ("$label$inst" =~ /\blea\b/i) {
    ();
}
-e syntax OK