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