spaceTo_ : clean up

1 files changed, 2 insertions, 3 deletions

diff --git a/spaceTo_ b/spaceTo_
index a8ab671..79647ac 100755
--- a/spaceTo_
+++ b/spaceTo_
@@ -10,17 +10,16 @@ sub proceed{
         if($name =~m/^\./){
             next;
         }
-        my $ustring = "\x{b4}";
         my $new = $name;
+        my $ustring = "\x{b4}";
+        $new =~ s/$ustring/_/g;
         $new =~ s/ /_/g;
         $new =~ s/'/_/g;
         $new =~ s/[\[\]]/_/g;
-        $new =~ s/$ustring/_/g;
         $new =~ s/\._/_/g;
         $new =~ s/_+\./\./g;
         $new =~ s/[_-](-*_*)+/_/g;
         $new =~ s/\\/-/g;
-        $new =~ s/\\/-/g;
         if(defined($prefix)){
             $new =~ s/^$prefix//g;
         }