first commit

perl/Examples/Chap8/regex-g-demo

@@ -0,0 +1,12 @@
+
+
+###
+### regex-g-demo
+###
+
+## Chapter 8 section 1.2
+
+my $target = "123..45.6789...0";
+while ($target =~ /(\d+)/g) {
+  print "Saw '$1' ending at position ", pos($target), "\n";
+}