Select Code to Download

use strict;
use XML::Twig;
...
</td></tr></table>
</body>
</html>

use strict;
use XML::XPath;
...
my $xpath = XML::XPath->new(ioref => \*DATA);
my $nodes = $xpath->find('//table[@border=0][@align="center"]');
print XML::XPath::XMLParser::as_string($nodes->get_nodelist);