use characters ':full'; open(PLP,">:encoding(ucs2le)","test.plp"); print PLP "PLP PLAYLIST"; print PLP "\N{CARRIAGE RETURN}\N{LINE FEED}";