$filename = '';
$dir = '';
while (<DATA>) {
	my($temp) = (m/\\([^\\]*)$/);
	
	if (length($filename) < length($temp)) {
		$filename = $temp;
		$dir = $_;
	}
}

print "[$dir]";

すいすいっとこういうスクリプトを書いて使ってる漏れは
Perlを使いこなしているだろう！！どうだ！！ハッカーだろう！？