#!/usr/bin/perl
# testgreparray.pl - Check behavior of grep on arrays

use strict;

my @cmdrsp = (
	'This is a test.',
	'A booger a day keeps the doctor at bay.',
	'Blimey, laddy, it\'s a booger!'
);

if (grep(/booger/, @cmdrsp)) {
	print "Found it the easy way\n";
}

my @searsp = grep(/booger/, @cmdrsp);
my $seacnt = @searsp;
if ($seacnt) {
	print "Found it the hard way\n";
}