use strict;
use warnings;

use XML::XPath;


my $xp = XML::XPath->new(ioref => *DATA);

#for parsing files:
#my $xp = XML::XPath->new(filename => 'test.xml');    
    
print map  { $_->string_value, "\n" } 
      grep { $_->string_value       }
      $xp->find('/Root/Table')->get_nodelist;
__DATA__
<Root>
    <Table>First_Table</Table>
    <Table/>
    <Table>Second_Table</Table>
</Root>

##</code><code>##

First_Table
Second_Table