SoftBank新絵文字搭載機種の判別

▽こんな感じで良いだろうか？

# SoftBank端末である
# $device_idにはユーザーエージェントから取得した機種名が入っている

my $softbank_new_emoji = 1;

if ( $device_id =~ /^(?:J|V|7|8[01]|82[012](?:P|SC|SH|T)|823SH|9[01]|920|92[12]SH|921T)/ ) {
    $softbank_new_emoji = 0;  # 新絵文字対応端末ではない
}