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

##</code><code>##

#!/usr/bin/perl -w
use strict;

my $string = "fooAbar" .
             "fooBbar" .
             "gooCbar" .
             "fooDfooEbar" .
             "foo";

while ($string =~ m/\G.*?foo(.*?)bar/g) {
  print $1, "\n";
};

##</code><code>##

H:\>perl -w test.pl
A
B
DfooE