Select Code to Download

 my $i = 0;

...
    $i = $i + 1;
  }
}

my $i = 0;

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