while ($res->content =~ m/\G.*?foo(.*?)bar/g) {
    print "$_ - $1\n";
  };