print "'F' is at index: $_\n" 
  for grep { $text[$_] eq 'F' } 0 .. $#text;