Select Code to Download

<?xml version="1.0" ?>
<output>
...
<message><file>they.pl</file><line>231</line><type>warning</type><code
+e>3582</codee><extra>sente</extra>
<message><file>them.pl</file><line>26</line><type>note</type><codee>33
+58</codee><extra>sente</extra>
</output>

you.pl   24-28
they.pl  36
them.pl  44-49
you.pl   234
77

<message><file>you.pl</file><line>25</line><type>warning</type><codee>
+355</codee><extra>sente</extra>

open(CHANGES, "< $linesChangedList") or die "could not open file";
my $myFile = $myFile0;
...
    print "$_\n";
  }
}