Hmm, i think :

my $s = "hello world, kill bill" ;
print pos $s, " " while $s =~ /ll/g
[download]

... does almost what you want :)
It returns : 4 17 22
Maybe you need to substract the length of the string you locate ?

Hope this helps,

zlr