Meh-ni
public text v1 · immutableuse strict;
use warnings;
use LWP::Simple;
use HTTP::Request;
# use HTTP::Request::Common;
use HTTP::Request::Form;
use HTML::TreeBuilder 3.0;
use Template::Extract;
use Data::Dumper;
foreach my $urls(
'http://colomanager/saved/1358381265931.htm',
'http://colomanager/saved/1375561135115.htm',
'http://colomanager/saved/1388446037003.htm'
)
{
get() $urls = ({<div class=ipm8rpt>([^<]*)</div>}i)
}