#!/usr/bin/perl -w
use strict;
use Data::Dumper;
$Data::Dumper::Useqq = 1;
my $text;
my @e = ("\012", "\015", "\012\015", "\015\012");
$text .= "this is the line ". ($_ + 1) . $e[$_] for (0..$#e);
print "Before: ". Dumper $text;
$text =~ tr/\15\12/\n/s;
print "After: ". Dumper $text;