Now Playing

use strict; my $lsdata; while (<>) { $lsdata .= $_; } # Add the /s option to make this work my @table = $lsdata =~ m/()/g; print $#table; ##

##

Now PlayingNow Playing




Source
Description
Date
Size
Links




TV Show Title
TV Show Description
Sat
4/14
1:01:00
6.03 GB
Download MPEG-PS



Folder Name
Fri
4/13
2 items

folder

2 items, classic.This feature is not supported. The TiVo license agreement allows you to transfer content to up to ten devices within your household, but not outside your household.  Unauthorized transfers or distribution of copyrighted works outside of your home may constitute a copyright infringement. TiVo reserves the right to terminate the TiVo service accounts of users who transfer or distribute content in violation of this Agreement.