#!/usr/bin/env perl
-use 5.010;
-use strict;
+use 5.014;
use warnings;
use Data::Dump 'pp';
my %BROWSERID = qw(
IE ie
+ Edge ie
Firefox firefox
Safari safari
Safari-iPad ios_saf
+ Safari-iPod-Touch ios_saf
+ Safari-iPhone ios_saf
Chrome chrome
+ Chrome-iPad chrome
+ Chrome-for-iPhone chrome
Chromium chrome
Opera opera
+ Opera-Mini op_mini
BlackBerry bb
IEMobile ie_mob
Android android
- Chrome-for-Android and_chr
+ Chrome-for-Android android
UC-Browser and_uc
+ QQ-Browser and_qq
iPhone ios_saf
iPod-Touch ios_saf
+ Samsung-Internet samsung
);
my %count = (