mere grinch

concieggs/filters/grinch

@@ -52,11 +52,12 @@ while (my $line = <>) {
     $line =~ s/familier/virksomheder/gi;
     $line =~ s/familie\b/virksomheds/gi;
     $line =~ s/stjerner/fugle/gi;
+    $line =~ s/stjernen/fuglen/gi;
     $line =~ s/stjerne/fugl/gi;
     $line =~ s/engle/fugle/gi;
     $line =~ s/engel/fugl/gi;
     $line =~ s/familie/virksomhed/gi;
-    $line =~ s/salmer?/rockkoncert/gi;
+    $line =~ s/salmer?/kvad/gi;
     $line =~ s/kirke/politisk møde/gi;
     $line =~ s/et træ/en bregne/gi;
     $line =~ s/træet/bregnen/i;
@@ -83,6 +84,16 @@ while (my $line = <>) {
     $line =~ s/slik/havegrød/gi;
     $line =~ s/risengrød/havegrød/gi;
     $line =~ s/rensdyr/slaver/gi;
+    $line =~ s/hall?eluja/helledusseda/gi;
+    $line =~ s/Maria/Marlene/gi;
+    $line =~ s/Josef/Jens/gi;
+    $line =~ s/hyrde/fodermester/gi;
+    $line =~ s/Bethlehem/Slagelse/gi;
+    $line =~ s/\blam/kalv/gi;
+    $line =~ s/hjerte/lunge/gi;
+    $line =~ s/\bløn/salær/gi;
+    $line =~ s/\bfred/fordragelighed/gi;
+    $line =~ s/\bbøn\b/begæring/gi;
 
     # Ban bad foods
     my $food_pattern = '(\b' . join('\b|\b', @bad_foods) . '\b)';