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

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

##</code><code>##

if ($junk=~m/$badregex/) {
    print qq~\nSee....?\n~;
}