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