Added stripping on sq brackets

strip_filename.pl

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