Re: The beauty that is perl.

[Anonymous Monk]

Index starting at 0? Very peculiar, sounds like a program discovered this, not a human brain. Perhaps...???

$c = -1;
while (<DATA>) {
   ++$c;
   print $c, ',', index($_, 'l'), "\n" if index($_, 'l') > -1;
}

__DATA__
1111111111111111111111111111111111111111
1111111111111111111111111111111111111111
1111111111111111111111111111111111111111
1111111111111111111111111111111111111111
1111111111111111111111111111111111111111
111111111111111111111111111111l111111111
1111111111111111111111111111111111111111
1111111111111111111111111111111111111111
1111111111111111111111111111111111111111
1111111111111111111111111111111111111111
1111111111111111111111111111111111111111
1111111111111111111111111111111111111111

[BrowserUk]

Nope, I counted manually. The only artificial aid was zooming the page to 400% so I could more easily pick out the flat-top of the l versus the pointed top of the 1.

Why zero-based: This is a programming site:)

[Anonymous Monk]

Highlight the text, you'll find it instantly.

[flyingmoose]

My brain counts from zero. Comp Sci folks often reprogram themselves this way :) I must say, though, "find the small L" is sneaky and evil, I like it.

[inman]

Following a more traditional x,y notation having the origin in the bottom left hand corner, the 'l' can be found at position 30,6. Slurp and reverse the data array.

$/ = '';
my @lines = reverse split /\n/, <DATA>;