sub flagValue {
    my ($flags, $item) = @_;
    my $flagOrder = ' RTBIFL';
    
    (-1 != index $flags, substr $flagOrder, $_, 1) and return $_
      for 1..length($flagOrder);
}