- foreach $e (@text) {
- if ($e->[0] =~ m|\&clip_loc=.+?cache.broadcaster.com.+?escape\(\x22([^\x22]+)\x22\)|s) {
- $metadata->{'DLURL'} = 'http://cache.broadcaster.com/peoplecaster/' . $1;
- last;
- }
- }
+ ($metadata->{'DLURL'}) = grep { $_ =~ m|\&clip_loc=.+?cache.broadcaster.com.+?escape\(\x22([^\x22]+)\x22\)|s && {$_ = 'http://cache.broadcaster.com/peoplecaster/' .$1} }
+ map { join("", @{$_->content()}) }
+ grep { defined($_->content()) }
+ $p->findnodes('script');