open my $fh, '<', "....data/UserAgents/block.dat";
my @agent = <$fh>;
close $fh;
chomp @agent;

my $invalid = grep { $ENV{'HTTP_USER_AGENT'} =~ /$_/i } @agent;