Select Code to Download

Select or download this

use strict;

...
my @table = $lsdata =~ m/(<tr.*?<\/tr>)/g;

print $#table;

Select or download this

<!-- Generated HTML --><html><head><title>Now Playing</title><meta htt
+p-equiv="Content-Type" content="text/html; charset=UTF-8"><h1>Now Pla
+ying</h1>
<table cellpadding="7" width="100%">
...
<td align="center" valign="top"><a href="TiVoConnect?Command=QueryCont
+ainer&amp;Container=%2FNowPlaying%2F17%2F55067240">folder</a></td></t
+r>

</table>2 items, <a href="index.html?Recurse=Yes">classic</a>.<p><font
+ size="-2">This feature is not supported. The TiVo license agreement 
+allows you to transfer content to up to ten devices within your house
+hold, but not outside your household.  Unauthorized transfers or dist
+ribution of copyrighted works outside of your home may constitute a c
+opyright infringement. TiVo reserves the right to terminate the TiVo 
+service accounts of users who transfer or distribute content in viola
+tion of this Agreement. </font></body></html>