> > とりあえずあ～ん,0～9,a～zを追加だな
> 顔文字はOKか

if($内容 =~ /[\x00-\xff]/) {
  print "TPOъ( ﾟｰ^)";
  exit;
}

参考：2002/09/27(金)15時51分41秒