#! G:\Perl\bin\perl.exe $test_string="x"; # # This pattern matches once, and it matches # after the "x", not before. # @test = ($test_string =~ /^x*/g ); $NumMatch=@test; print "Test String\t>$test_string<\n"; print "Prematch\t>$`<\n"; print "Match\t\t>$&<\n"; print "Postmatch\t>$'<\n"; print "Num Matches\t>$NumMatch<\n"; print "Match Arrary:\n"; foreach $m (@test) { print ">$m<\n"; } print "\n"; print "-" x 10; print "\n\n"; # # This pattern matches twice, and # the second match is after the "x" # @test = ($test_string =~ /x*$/g ); $NumMatch=@test; print "Test String\t>$test_string<\n"; print "Prematch\t>$`<\n"; print "Match\t\t>$&<\n"; print "Postmatch\t>$'<\n"; print "Num Matches\t>$NumMatch<\n"; print "Match Arrary:\n"; foreach $m (@test) { print ">$m<\n"; } __END__