if ($text =~ /_9(...)/, none {$1 eq $_} @$sites) { print "To be removed..\n" }