Help for this page
$a =~ s/\x0d\x0a/' + Chr(13) + Chr(10) + '/;
$a =~ s/\r\n/' + Chr(13) + Chr(10) + '/;
$a =~ s/\r\n/' + Chr(13) + Chr(10) + '/g;