Assessment for Victoria Offord’s Grep pattern in array (Perl)

Given the Perl array:
my @fruits = ('apple', 'pear', 'peach', 'orange', 'pineapple', 'persimmon');

1. What fruits would be found in the @pe array if we ran the following code:
   my @pe = grep(/^pe/, @fruits);
   A. pear, peach, persimmon
   B. pear, pineapple, peach
   C. apple, orange, pinable
   D. All the fruits
   E. None of the fruits

2. If I wanted to inlude only ‘apple’ and ‘pineapple’ in a new array, what would be the simplest regular expression I could use in my grep?
   A. my @apples = grep(/apple$/, @fruits);<br /> B. my @apples = grep(/^apple/, @fruits);<br /> C. my @apples = grep(/le$/, @fruits);<br /> D. my @apples = grep(/^le/, @fruits);<br /> E. my @apples = grep(/le/, @fruits);

Exercise 1.
Using the code below, and without using the ‘grep’ function, show how you’d get ‘apple’ and ‘pineapple’ into the @fruit_choice array. Make sure you replace ‘my_regex’ with a regular expression.

`my @fruits = (‘apple’, ‘pear’, ‘peach’, ‘orange’, ‘pineapple’, ‘persimmon’);
my @fruit_choice;
for my $fruit (@fruits)
{
if ($fruit =~ /my_regex/)
{</p>

}
}`