for my $line (split/(?m)\n/, $s) {