for my $line ( split /^/, $s )