#!/usr/bin/perl
use warnings;
use strict;

use HTML::TreeBuilder;
my $html = do{local $/;<DATA>};
my $t = HTML::TreeBuilder->new_from_content(
  $html
) or die qq{cant parse string\n};

my $td = $t->look_down(
  q{_tag}   => q{td},
  q{class}  => q{marketWatch},
  q{style}  => qr{width:\s+20px;},
) or die qq{cant find td\n};

my $script = $td->look_down(
  q{_tag} => q{script},
) or die qq{cant find script\n};
my $js = $script->as_HTML;
my ($ugid, $marketid) = $js =~ /ugid=([^&]+)&marketId=([^&]+)&/;

printf qq{%-10s: %s\n}, q{ugid}, $ugid;
printf qq{%-10s: %s\n}, q{marketId}, $marketid;

$td = $t->look_down(
  q{_tag}   => q{td},
  q{style}  => qr{width:\s+22%},
) or die qq{cant find name\n};
printf qq{%-10s: %s\n}, q{name}, $td->as_trimmed_text;

$td = $t->look_down(
  q{_tag}   => q{td},
  q{class}  => q{qty},
) or die qq{cant find qty\n};
printf qq{%-10s: %s\n}, q{qty}, $td->as_trimmed_text;

$td = $t->look_down(
  q{_tag}   => q{td},
  q{class}  => q{price},
) or die qq{cant find qty\n};
printf qq{%-10s: %s\n}, q{price}, $td->as_trimmed_text;


# gratuitous white space wiped
__DATA__
<td class="marketWatch" style="width: 20px;"><p class="pngfix" id="market-watch-1">&#160;</p>
<script type="text/javascript">
  $('market-watch-1').onclick=function(){location.href='/marketWatch.html?ugid=696398000&marketId=700213356&action=add';};
</script>
</td>
<td style="width: 25%;">Super Bowl XLIII</td>
<td style="width: 22%;">
  <a href="/marketplace/sports/nfl/super-bowl-xliii/upper-deck-end-zone/1/ravens">Upper Deck End Zone</a>
</td>
<td class="qty">
  <input type="hidden" id="qty_select_1" value="2"/>2
</td>
<td class="price" style="width: 18%;">
  <input type="hidden" id="trade_price_1" value="25" />
  <span class="price">$25.00</span>
</td>


##</code><code>##

ugid      : 696398000
marketId  : 700213356
name      : Upper Deck End Zone
qty       : 2
price     : $25.00