> perlで$dataが数字であるかを確認する場合
> if($data eq \d+){print $hoge}
> でいいんですか？(;´Д`) 

=~ /\d+/とか…

参考：2005/10/02(日)06時22分17秒