Select Code to Download

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

use List::MoreUtils qw( indexes );
# ...
print "'F' is at index: $_\n"
  for indexes { $_ eq 'F' } @text;