my $CRE = '0D';
my $LFE = '0A';
s{\x{$CRE}?\x{$LFE}}{\n}xms;
s{\015?\012}{\n}xms;
s{\x0D\x0A}{\n}xms;