Help for this page

Select Code to Download


  1. or download this
    use List::Util qw( none );

...
if ($text =~ /_9(...)/, none {$1 eq $_} @$sites) {
    print "$1 doesn't match anything: to be removed..\n"
}
  2. or download this
    019 doesn't match anything: to be removed..