I also specifically spoofed having an advanced version of mozilla running on a Sony Playstation just to mess up results like the one you're about to try.

I suppose you could get some general data, but what is it you're specifically curious about?

Ahh yes, and my obligatory "don't reinvent the wheel" comment: don't reinvent HTTP::BrowserDetect. If that doesn't do what you want, please send patches to the author.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

Anything not detected by this just comes back as the original user-agent string.

sub munge_browser {
  $string = shift () || die "$!";
  chomp($string);
  $string =~ s/^\s*//;
  ($first, $second, $third) = split ('\(|\)', $string);
  ($x, $version) = split ('/| ', $first);
  $version =~ s/[^\d.]//g;
  if ($first =~ /mozilla/i && $second !~ /compatible/i) {
    $browser = 'Netscape';
  }
  if ($browser == 'Netscape' && $version =~ /5/) {
    $version = 6;
  }
  if ($second =~ /MSIE/i) {
    $browser = 'Explorer';
  }
  if ($third =~ /opera ([\d.]+)/i) {
    $browser = 'Opera';
    $version = $1;
  }
  if ($second =~ /icab ([\d.]+)/i) {
    $browser = 'iCab';
    $version = $1;
  }
  if ($second =~ /MSIE\s([\d.]+)/i) {
    $version = $1;
  }
  if ($second =~ /win/i) {
    $system = 'PC';
  }
  if ($second =~ /mac/i) {
    $system = 'Mac';
  }
  if ($browser) {
    return "$browser $version ($system)";
  } else {
    return "$string";
  }
}
[download]

($_='jjjuuusssttt annootthheer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;
[download]