use 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)

}