foreach (@out) {
        print "$_\n" if ($_ =~ /\w/);
}