use List::Util qw(none);
print "$text To be removed"
        if $text=~/_9(...)/,none {$1 eq $_} @$sites;