#!/usr/bin/perl

print "<matching>\n";
$sourcetext="pappus8.xml";
$targettext="PappusArabus.xml";




while (<>) {

chomp;
($source, $target) = split (/\t/);


if ($source) {

$source = "id.$source";

print "<map>\n<source>\n";
print "<link xlink:href=\"$sourcetext#$source\"/>\n";
print "</source>\n";

print "<target>\n";
print "<link xlink:href=\"$targettext#$target\"/>\n";
print "</target>\n</map>\n";


}
}

print "</matching>\n";