in reply to character location question
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]