$_ = "123patternABCpatternJJEK";

while ($_ =~ /(pattern)/gim) {
   
   
    push @array, $1;
}