my (@found) = $string =~ /(RegEx)/g;
print $_,"\n" for(@found);