my @lines = split /\n/, $str;
foreach my $line (@lines) {
...
}