ActivePerlは使ったことがないので、他にも方法があるかもしれませんが、 $/ = "\r"; とかにして、出力時に\nを付けるようにするとか。 あるいは処理前にtrとかnkfとかで前処理するとか。