Just adding a few characters to the replace regex

download_archive_dot_org.pl

@@ -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";