Fix application of --whitespace to final file/path

get_iplayer

@@ -4862,6 +4862,8 @@ sub substitute {
 		# Remove unused tags
 		my $key = $tag_begin.'.*?'.$tag_end;
 		$string =~ s|$key||mg;
+		# Replace whitespace with _ unless --whitespace
+		$string =~ s/\s/_/g unless $opt->{whitespace};
 	}
 	return $string;
 }