perl -e 'my @a=qw|f1 fw . f3 f4|; for (grep {$_ ne "."} @a) {print qq|$_\n|}'