use Modern::Perl;
use XML::Lenient;

my $p = XML::Lenient->new();
my $string = '<style>table{border-collapse: collapse;margin-left: 1cm;font-Family: courier;width: 60%}.hoverTable tr{background: #D8D8D8;} .hoverTable tr:hover{background-color: #ffff99; }</style><table border=2 class="hoverTable">[20160628_151916] <tr><td bgcolor="#366092"><font color="White"> PLAIN TEXT TO BE EXTRACTED</td>';
say $p->innertext($p->within($string, 'td'));
say $p->wpath($string, 'td/font');