This is a total hack, but it will save me some hassle until I come up with a general solution

transmission.pl

@@ -581,9 +581,11 @@ sub seriesCleanup($) {
 	my ($name) = @_;
 	$name =~ s/\b(?:and|\&)\b/ /ig;
 	$name =~ s/^\s*The\b//ig;
-	$name =~ s/\bUS\b?\s*$//ig;
+	if (!($name =~ /Being\s+Human/i)) {
+		$name =~ s/\bUS\b?\s*$//ig;
+		$name =~ s/\([^\)]*\)//g;
+	}
 	$name =~ s/\[[^\]]*\]//g;
-	$name =~ s/\([^\)]*\)//g;
 	$name =~ s/\{[^\}]*\}//g;
 	$name =~ s/[\(\)]//g;
 	$name =~ s/[\'\"]//g;