while ($var =~ /(pattern)/g) {
   print "$1\n";
}