@@ -35,7 +35,7 @@ sub make_filename($) {
my $filename;
open(my $fh, ">>", \$filename);
foreach my $char ( split("",$name) ) {
- if ( $char =~ m/[\s->']/ ) {
+ if ( $char =~ m/[\s->'\/\!\&\:]/ ) {
print $fh "";
} else {
print $fh "$char";