#
# This software is Copyright 2005 by Elsevier Inc.  You may use it
# under the terms of the license at http://perl.plover.com/hop/LICENSE.txt .
#



###
### 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";
}