+sub fixup_header_order
+{
+ my $file = shift || return;
+ local $/;
+
+ open P, "< $file" || die "open(): $!";
+ my $data = readline P;
+ close P;
+
+ $data =~ s/("Language-Team: .*?\\n"\n)(.+?)("Language: .*?\\n"\n)/$1$3$2/s;
+
+ open P, "> $file" || die "open(): $!";
+ print P $data;
+ close P;
+}
+