my %passed = { 
    "Mozilla/4.0 (compatible; MSIE 5.0; Windows NT; DigExt)"=> { 
        NAME        =>    "MS Internet Explorer",
        VERSION     =>    "5.0",
        PLATFORM    =>    "NT",
        # more specialized info here
    }, 
    # more HTTP_USER_AGENT strings here...
    URI_REDIRECT => 'http://passaddress/', 
};

# if $test_key is the unique browser identifier you're looking for
# you may print like...
my $message = join( ' ', 
    $passed{$test_key}->{NAME}, 
    $passed{$test_key}->{VERSION}, '/',
    $passed{$test_key}->{PLATFORM),
    # etc.
);