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