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

##</code><code>##

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