|
@@ -16,7 +16,7 @@ sub strip_filename($) {
|
|
foreach my $char ( @chars ) {
|
|
foreach my $char ( @chars ) {
|
|
if ( $char =~ m/\s/ ) {
|
|
if ( $char =~ m/\s/ ) {
|
|
next;
|
|
next;
|
|
- } elsif ( $char =~ m/\(|\)|\\|\'|\$|\!|,/ ) {
|
|
|
|
|
|
+ } elsif ( $char =~ m/\(|\)|\\|\'|\$|\!|,|\[|\]/ ) {
|
|
next;
|
|
next;
|
|
} else {
|
|
} else {
|
|
print $fh $char;
|
|
print $fh $char;
|