@array = qw(apple pear banana orange grape);
@array2 = grep {$_ =~ "n"} @array;
print "@array2\n";