diff --git a/map-ger-icc-genres.pl b/map-ger-icc-genres.pl
new file mode 100755
index 0000000..216cdd9
--- /dev/null
+++ b/map-ger-icc-genres.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/env perl
+
+while (<STDIN>) {
+  s/Administrative\/regulatory prose<\/classCode>/Instructional:AdministrativeRegulatoryProse<\/classCode>/;
+  s/Blogs<\/classCode>/Blog<\/classCode>/;
+  s/Creative<\/classCode>/Creative:Novels_ShortStories<\/classCode>/;
+  s/Learned_Humanities<\/classCode>/Informational:Learned:Humanities<\/classCode>/;
+  s/Learned_Natural_Sciences<\/classCode>/Informational:Learned:NaturalSciences<\/classCode>/;
+  s/Learned_Social_Sciences<\/classCode>/Informational:Learned:SocialSciences<\/classCode>/;
+  s/Learned_Technology<\/classCode>/Informational:Learned:Technology<\/classCode>/;
+  s/Popular_Humanities<\/classCode>/Informational:Popular:Humanities<\/classCode>/;
+  s/Popular_Natural_Sciences<\/classCode>/Informational:Popular:NaturalSciences<\/classCode>/;
+  s/Popular_Social_Sciences<\/classCode>/Informational:Popular:SocialSciences<\/classCode>/;
+  s/Popular_Technology<\/classCode>/Informational:Popular:Technology<\/classCode>/;
+  s/Press_comments<\/classCode>/Persuasive<\/classCode>/;
+  s/Press_news_reports<\/classCode>/Informational:Reportage<\/classCode>/;
+  s/SkillsHobbies<\/classCode>/Instructional:Skills_Hobbies<\/classCode>/;
+  print;
+}