my $re = join"|" => map {"(?:$_)"} @blacklist;
    my @blacklisted = grep {/$re/} @sites;