why are all the common ones c?

diff --git a/marc-cleanup b/marc-cleanup
index 00b1430..f8d916c 100755 (executable)
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -111,6 +111,7 @@ while (my $line = getline()) {
 
     # automatable subfield maladies
     $line =~ s/code=" ">c/code="c">/;
+    $line =~ s/code=" ">\$/code="c"$>/;
 
     # and stow line back in record
     $record[-1] = $line;