sub filter { my $file = shift; if (defined $file) { return $file if $file =~ /[\w.]/; } return; }