my $scanned = `iwlist scan`;
	...
	my @lines = split(/\n/, $scanned);