勿論違うよ、どんなのかは調べてもらうとして
普通は　$data =~ s/\r\n|\r/\n/g;　こんなのが前に入る