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