2012/07/24迄に終了のau端末

EZweb 
# $device_idには、ユーザーエージェントから取得した
# KDDI-○○○○の○○○○部分が入っている

my $_20120724end = 0;

if ( $device_id =~ /^(?:[A-Z]{2}2[0-9A-Z]|CA3[1234567]|(?:HI|SA|SN)3\d|KC3[\dA]|(?:MA|SH|ST)3[12]|TS3[12345678BC])$/ ) {
    $_20120724end = 1;  # 2012/07/24迄に終了予定
}

※TS（東芝）端末は、TS39（DRAPE），TS3A（W47T）が対象外なので注意