Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my @strings_to_be_matched = qw(foo bar wibble wobble fee_fie foe fum)
+;
...
"
$ur: (?^msx: wobble | wibble | fum | foo | foe | fee_fie | bar )
$reg3: (?^i:extern.+\b(?^msx: wobble | wibble | fum | foo | foe | fee_
+fie | bar )\b\s*)

my @strings_to_be_matched = ...;

...
    if ($ln =~ $reg5 and $ln !~ $reg4 and $ln !~ $reg1) { ... }

    }