Select Code to Download

while ($str =~ s/\A(foo)//) {
  push @got, $1;
}
die "unexpected stuff in string: $str" if $str ne '';

@got = $str =~ m/(foo)/g;