$aiu = "東京都１−２−３"

if(ereg("/１|２|３|４|５|６|７|８|９/" , $aiu)){
???
}

変数に１〜９（全角文字）が合ったらその前部分の文字列
例の場合だと「東京都」を受け取りたいんですがどうやんるんでしょうか。

perl では$`って特殊変数があったんで簡単なんですが・・・。