#!/usr/bin/perl

use strict;

my @list = qw( red blue orange yellow black brown green );

print join( ' ', @list );
print "\n";

@list = grep { m/e/io } @list;

print join( ' ', @list );
print "\n";