Для этого есть много модулей... тот же LWP, но в некотором плане они слишком "мощные". Хочется написать свою "универсальную" функцию, чтобы, например, записывать в лог типы браузеров.
Строки 'HTTP_USER_AGENT' различных типов браузеров можно посмотреть здесь http://www.zytrax.com/tech/web/browser_ids.htm

Вот что у меня получилось:

Код

sub GetUserAgent {    # спасибо Lee Semel - HTTP::BrowserDetect    #   my $user_agent = lc($ENV{'HTTP_USER_AGENT'});   my( $browser, $version );   # проверка для MSIE   if( index($user_agent,"compatible;") != -1 &&       index($user_agent,"webtv") == -1 &&      index($user_agent,"opera") == -1 &&      index($user_agent,"msie") != -1)     {     # похоже это MS IE     ($version) = ($user_agent =~ /                    compatible;                          \s*                   \w*            # имя браузера                   [\s|\/]        # разделитель имени и версии                   ([^;]*)        # все, что до ';' принимаем за версию браузера                   ;                   /x);     $browser = 'MSIE';       }      # проверка для браузеров, использующих gecko   if( index($user_agent,"gecko") != -1 )    {     # firefox     if( $user_agent =~ /(firefox|firebird|phoenix)/ )     {  ($browser, $version) = ($user_agent =~ /(firefox|firebird|phoenix)\/([\.\d]*)/);  }     # netscape     else     {         if( index($user_agent, "netscape") != -1 || index($user_agent, "nsb") != -1 )       {         ($version) = ($user_agent =~ /\/([\.\d]*)/);          $browser = 'Netscape';       }       else       {         # если это ни firefox ни netscape, но с gecko, то, наверное, это Mozilla         if( index($user_agent, "mozilla") != -1 )         {           ($version) = ($user_agent =~ /\/([\.\d]*)/);            $browser = 'Mozilla';         }       }     }   }        # Самый "интересный" браузер Opera   if( index($user_agent,"opera") != -1 )   {     ($version) = ($user_agent =~ /opera[\/\s]([\.\d]*)/);     $browser = 'Opera';   }      # Safari ( браузер MAC OS )   if( index($user_agent, "safari") != -1 ) # надо полагать, что старые версии Safari называли себя "applewebkit"   {       ($version) = ($user_agent =~ /\/([\.\d]*)/);       $browser = 'Safari';   }       # Если браузер не является ни одним из вышеперечисленных, то попробуем определить его имя и версию.   # ^(\w*)[\/\s]([\.\d]*) - строка, где имя браузера стоит на первом месте,    # например AmigaVoyager/3.4.4 (MorphOS/PPC native)   # \s+(\w*)[\/\s]([\.\d]*) - например, Mozilla/4.0 (compatible; MSIE 6.0; WINDOWS; .NET CLR 1.1.4322)   unless( $browser )   {  ($browser, $version) = ($user_agent =~ /^(\w*)[\/\s]([\.\d]*)|\s+(\w*)[\/\s]([\.\d]*)/);  }      return( $browser ? ($browser .' '. ( $version ? $version : '?' )) : 'unknown' ); }

Это только "флагманские агенты", есть желание добавить еще.
Собственно, вопросов особо нет... единственно.. не уверен, какие браузеры следует определять.. т.е. кроме "основных" под Win