$a =~ s/\x0d\x0a/' + Chr(13) + Chr(10) + '/;

##</code><code>##

  $a =~ s/\r\n/' + Chr(13) + Chr(10) + '/;

##</code><code>##

  $a =~ s/\r\n/' + Chr(13) + Chr(10) + '/g;