push @output, $1 while $data =~ s/htm>(.*)<\/td><\/tr>//;