Help for this page
$string = a.foobara.foobara.foobara.bara.foobar x 100
@array = ($string =~ m/(a.*?foobar)/gso);