--- /dev/null
+#!/usr/bin/perl
+
+use Getopt::Long;
+
+sub usage {
+ print STDERR "Usage:\n";
+ print STDERR "\t$0 --lic2 <license 2.0 file>\n";
+ exit 1;
+}
+
+&usage unless GetOptions("lic2=s" => \$lic2);
+&usage unless defined($lic2);
+
+die "Can't open $lic2\n" unless open LIC2, "<$lic2";
+
+# Read files without an input record separator
+undef $/;
+
+# Slurp the license file
+$lic2text = <LIC2>;
+($lic2begin = $lic2text) =~ s/^(.*)\{YEARS\}(.*)/$1/s;
+$lic2rem = $2;
+
+# Slurp the input file
+$_ = <>;
+s|\n # Start with a newline
+ [^\n]*=+\s+ # Non-newlines followed by multiple '='
+ # ...followed by whitespace (incl. newline)
+ [^\n]* # Non-newlines (incl spaces)
+ The\ Apache\ Software\ License,\ Version\ 1\.1
+ .* # Anything
+ Copyright\ \(C\)\ (\d+(-\d+)?)\ The\ Apache\ Software\ Foundation
+ .* # Anything
+ James\ Tauber
+ .* # Anything
+ \<http://www.apache.org/\>\.
+ \s+ # Any whitespace
+|$lic2begin$1$lic2rem|xs;
+
+print;