$text =~ s/[[:^print:]]//g