渡された文字列に非半角数字があるか？のチェック(Perl編）

#渡された文字列に非半角数字があるか？
#Perlの正規表現を使用して、渡された文字列に非半角数字があるかチェックします。
#Perl 正規表現 非半角数字
$str = "0123456789a";
if ( $str =~ /[^0-9]/ ) {
    print encode('shift-jis', decode('utf-8', "文字列に半角数字でない文字が存在する\n"));
} else {
    print encode('shift-jis', decode('utf-8', "文字列に半角数字でない文字が存在しない\n"));
}
#↓
#"文字列に半角数字でない文字が存在しない"