sub splt {
  my $s = shift;
  $s =~ s/\x0A|\x0D//gs; # make one line
  return (split /<td|<tr|<li/gsi, $s); # return array
}