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