my $CRE = '\x0D';
my $LFE = '\x0A';

$_ = qq,aod \x0D\x0A another \x0D\x0A no more,;

s/$CRE?$LFE/--/msxg;
print;
__END__
aod -- another -- no more