urgh punctuation

1 files changed, 1 insertions, 1 deletions

diff --git a/get.pl b/get.pl
index d5c2be6..2081bb8 100755
--- a/get.pl
+++ b/get.pl
@@ -10,7 +10,7 @@ sub sanitize ($) {
   $s =~ s/^\s+//;
   $s =~ s/\s+$//;
   $s =~ s/\.[^.]+$//g;
-  $s =~ s/\W//g;
+  $s =~ s/[-\[\]\(\)\+\*\\\/\'\"\`\!\@\#\$\%\^\&]//g
   $s =~ s/\s+/_/g;
   if (length($s) == 0) {
     print "fn is empty";