my $h = HTML::TreeBuilder->new;
$h->parse_file($tsmin);
my @warnings = $h->look_down(
  _tag => "td",
  class => qr/Alt(Warning|Error)/ );

foreach my $warning (@warnings) {
  my @filtered = $warning->as_HTML( );
  say "dump of my @filtered";
  say $fh2 @filtered;
}