1#!./perl 2 3print "1..3\n"; 4 5$x='banana'; 6$x=~/.a/g; 7if (pos($x)==2) {print "ok 1\n"} else {print "not ok 1\n";} 8 9$x=~/.z/gc; 10if (pos($x)==2) {print "ok 2\n"} else {print "not ok 2\n";} 11 12sub f { my $p=$_[0]; return $p } 13 14$x=~/.a/g; 15if (f(pos($x))==4) {print "ok 3\n"} else {print "not ok 3\n";} 16 17