use LWP::UserAgent;
# request in here
for ($res->content =~ m/foo(.*?)bar/g) {
    print "$_ - $1\n";
}