my @result = map /(.*)/, <$FH>;