$ perl -wle'
my $page = "foo % bar % baz % end";
my $re = "%";
while ($page =~ m/$re/go) {
print pos $page
}'
5
11
17