$lines = grep {$_} <$file>;