$text =~ s![#$%&~_}{^]!\\$&!g;