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