I confused $/ with $\. Thank you for bringing that up.
I am currently running under windows. I have used binmode, but it seems to add a record seperator after every print statement.
Close approximation:
# @playlist has lines with no newlines
my $playlist = undef;
$playlist .= "$_\n" for ( "PLP PLAYLIST\nVERSION 1.20\n\n", @playlist
+);
open PLAYLIST, ">", 'playlist.plp' or die "Couldn't open playlist.plp:
+ $!";
print PLAYLIST "$_\x{00}" for (split //, $playlist);
This produces what I want EXCEPT for the newline CR-LF being lumped together.
"One is enough. If you are acquainted with the principle, what do you care for the myriad instances and applications?"
- Henry David Thoreau, Walden