携帯の固体番号取得方法（DoCoMo SoftBank AU）

携帯の固体番号で制御したい事があったので真剣に調べてみました
本当に苦労しました
今回は、Perl 言語を使用して動作検証してみました

例）：携帯の固体番号を取得するサンプルプログラム
$host = $ENV{‘REMOTE_HOST’};
$agent = $ENV{‘HTTP_USER_AGENT’};
if($agent =~ /^DoCoMo/ && $host =~ /.+docomo\.ne\.jp$/){
　　if ($agent =~ /ser(\w{15})/) {
　　$kotai = $1;
　　}elsif ($agent =~ /ser(\w{11})/) {
　　　　$kotai = $1;
　　}
}elsif($agent =~ /^UP.Browser|^KDDI/ && $host =~ /.+ezweb\.ne\.jp$/){
　　　　$kotai = $ENV{‘HTTP_X_UP_SUBNO’};
}elsif($agent =~ /^J-PHONE|^Vodafone|^SoftBank/ && $host =~ /.+jp-.\.ne\.jp$/){
　　if ($agent =~ /.*\/.*\/.*\/SN(\w+)\s/) {
　　　　$kotai = $1;
　　}
}elsif($agent =~ /Mozilla/){
}

携帯端末からアクセス出来ないように、携帯のドメインも確認するようにしています
また、DoCoMo SoftBank AUと３機種とも固体番号を取得するようにしていますが
SoftBank AU が本当に固体番号の取得が可能か確認出来てない状態です
何方か確認してくれる人いないかな・・・・