Andoridのユーザーエージェントから情報を取得する

【2016/11/04追記】
この方法だと一部のAndorid端末を誤判定してしまうので、http://d.hatena.ne.jp/Kimura/20161104/p1 の記事をご覧下さい。

if ( $ENV{HTTP_USER_AGENT} =~ m{Mozilla/\d+\.\d+ \(Linux; U; Android (\d+\.\d+[^ ^;]*); ([^ ^;]+); (.+) Build/([^)]+)\)} ) {
    print "Android.\n",
    'version = [', $1, "]\n",
    'lang = [', $2, "]\n",
    'device = [', $3, "]\n",
    'build_id = [', $4, "]\n";
}
else {
    print "Not Android.\n";
}