$text =~ s/\n/\\n/g;
$text =~ s/\r//g;