:~$ perl -e ' @array = qw(apple pear banana orange grape); print  join (" ", grep /n/, @array)|| "Not Found","\n";'