$name =~ s/([\x00-\x1f\x7f])/'^'.($1^'@')/eg;