$new_file =~ tr/\r//d;

##</code><code>##

$new_file =~ s/[:^print:]//g;