my $h = HTML::TreeBuilder->new;
$h->parse_file($tsmin);

my @warnings = $h->look_down(
  class => qr/Alt(Warning|Error)/
  );

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