sub fixn($){
        my $str = "@_";
        $str =~ s/[^a-zA-Z0-9^_\-\\`\.\[\]\{\}~]//g;
        chomp $str;
        return $str;
}