> 
> $filename = '';
> $dir = '';
> while (<DATA>) {
> 	my($temp) = (m/\\([^\\]*)$/);
> 	if (length($filename) < length($temp)) {
> 		$filename = $temp;
> 		$dir = $_;
> 	}
> }
> print "[$dir]";
> すいすいっとこういうスクリプトを書いて使ってる漏れは
> Perlを使いこなしているだろう！！どうだ！！ハッカーだろう！？

そう言われてもPerlがわからないので
何が凄いのかわかりません。

参考：2000/08/12(土)20時16分33秒