vær grinch, ikke ugrammatisk

concieggs/filters/grinch

@@ -48,7 +48,6 @@ while (my $line = <>) {
     $line =~ s/\bpakker\b/stykker kul/gi;
     $line =~ s/\bhygge\b/arbejde hårdt/gi;
     $line =~ s/hygge\b//gi;
-    $line =~ s/fugle-//gi;
     $line =~ s/familier/virksomheder/gi;
     $line =~ s/familie\b/virksomheds/gi;
     $line =~ s/stjerner/fugle/gi;
@@ -88,7 +87,7 @@ while (my $line = <>) {
     $line =~ s/Maria/Marlene/gi;
     $line =~ s/Josef/Jens/gi;
     $line =~ s/hyrde/fodermester/gi;
-    $line =~ s/Bethlehem/Slagelse/gi;
+    $line =~ s/Beth?lehem/Slagelse/gi;
     $line =~ s/\blam/kalv/gi;
     $line =~ s/hjerte/lunge/gi;
     $line =~ s/\bløn/salær/gi;
@@ -100,8 +99,12 @@ while (my $line = <>) {
     $line =~ s/glæden/følelsen/gi;
     $line =~ s/glæde/følelser/gi;
     $line =~ s/\bhåb/aspiration/gi;
+    $line =~ s/\bbarnet/personen/gi;
     $line =~ s/\bbarn/person/gi;
     $line =~ s/krybbe/hængekøje/gi;
+    $line =~ s/\bblid/sensitiv/gi;
+    $line =~ s/\bføde/søsætte/gi;
+    $line =~ s/jord/planet/gi;
 
     # Ban bad foods
     my $food_pattern = '(\b' . join('\b|\b', @bad_foods) . '\b)';