> > $key2=join'|',map{quotemeta}@TPO;
> > $data=~/$key2/
> ｸｽｺ。Perlわからないからちょっと勉強してくる

べたにゃヽ(´ー｀)ノ今度一緒に酒飲もうぜ愚痴聞いてやんよ

参考：2004/01/12(月)13時47分45秒