Select Code to Download

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

#!/usr/bin/perl -w
use strict;
...
while ($string =~ m/\G.*?foo(.*?)bar/g) {
  print $1, "\n";
};

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