Perl implementation of ua-parser