$a =~ s/chr(13)chr(10)/' + Chr(13) + Chr(10) + '/;