my $s = "foo\n\n\n\n\n\n\n\n";
print unpack "A*", $s;