$text =~ s/.\cH//g;