> > 
> > $filename = '';
> > $dir = '';
> > while (<DATA>) {
> > 	my($temp) = (m/\\([^\\]*)$/);
> > 	if (length($filename) < length($temp)) {
> > 		$filename = $temp;
> > 		$dir = $_;
> > 	}
> > }
> > print "[$dir]";
> > すいすいっとこういうスクリプトを書いて使ってる漏れは
> > Perlを使いこなしているだろう！！どうだ！！ハッカーだろう！？
> そう言われてもPerlがわからないので
> 何が凄いのかわかりません。

掲示板書き込み時に電話番号を表示するスクリプと

参考：2000/08/12(土)20時18分30秒