Perlの正規表現で記号を削除

別に正規表現でなくても良いのだが、文字列から記号を削除したい場合に、どのようなアプローチがあるのか、検討してみた。

便利そうなUnicodeのブロックを使ってみる
¥p{Latin}で数字となるが、
ローマ数字なども含んでいるので使えない

sub nomalize {
my $str = shift;
$str =~ s/[^0-9０-９a-zA-Zａ-ｚＡ-Ｚ\p{Han}\p{Katakana}\p{Hiragana}]//g;
return $str;
}