perl -F -ane 'print map{"$_\n"} map{ } grep { } @F' <file>