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