$perl simple.pl
String: "This is a simple thing, just a simple simple thing."

first test scalar context:
$1 is simple, pos($test1) is 16

second test list context:
Match 0 is simple
Match 1 is simple
Match 2 is simple

third test scalar context but with looping:
$1 is simple, pos($test3) is 16, loop counter is 0
$1 is simple, pos($test3) is 37, loop counter is 1
$1 is simple, pos($test3) is 44, loop counter is 2