日本語も混じってるテキストファイル(EUC-JP)からハッシュ値
だけ抜き出したいんですけどうまく抜き出せません。他にもゴミ
がついてきます。
#!/usr/bin/perl
while(<STDIN>){
if(/\b[a-z|0-9]{32}\b/){
print;
}
}

どうしたらいいですか？