foreach my $l (split("\n", $map)) { print $l; }