Select Code to Download

$string = a.foobara.foobara.foobara.bara.foobar x 100

@array = ($string =~ m/(a.*?foobar)/gso);