Windows Phone
if ( $ENV{HTTP_USER_AGENT} =~ /(Windows Phone)(?: OS)? ([^\s;)]+)/i ) { print 'OS = [', lc($1), "]\n", 'OS Version = [', $2, "]\n"; if ( $ENV{HTTP_USER_AGENT} =~ /[^\d]; *([^;)]+)(?:; *[^;)]+)?\)?$/ ) { print 'device = [', $1, "]\n"; } } e…