foreach $line (@lines)
{
    #chop $line;
    $line =~ s/<\?xml\ version=\"1.0\"\?>//igs;
    next regex - etc...
    next regex - etc...
    print "$line";
}
[download]