my $i = 0;

 while ( $i != -1 ) {
  $i = index( $text, "ll", $i );

  if ( $i != -1 ) {
    print $i, "\n";
    $i = $i + 1;
  }
}
[download]

my $i = 0;

print $i++, "\n" while ( ( $i = index( $text, "ll", $i )) != -1 );
[download]

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

Hope this helps,

zlr

thanks!

And while you're at it, you should switch to Java!! </sarcasm>

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"

I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).

** The third rule of perl club is a statement of fact: pod is sexy.

my $i = index reverse($phrase),$what;
[download]

use strict;
print join(",",rindexes("hello world , kill bill","ll"));

sub rindexes {
    my $s = reverse shift;
    my $what = reverse shift;
    my @indexes;
    my $old = 0;
    while ((my $i = index $s,$what,$old) > -1) {
        push @indexes, length($s) - $i - length($what) +1;
        $old = $i+1;
    }
    @indexes;
}
[download]