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