in reply to grep and arrays

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

[download]

     "How many times do I have to tell you again and again .. not to be repetitive?"

In Section Seekers of Perl Wisdom