while (<$IN>) {
	if (/(^w.*)/) {
		push @lsl,$1;
	}
	elsif (/^Directories/) {
		last;
	}
}