my @substrs = $var =~ /(pattern)/g;
print "$_\n"
   foreach @substrs;