Select Code to Download

package Text::Grap;

...
}

1;

#!/usr/bin/perl

...

my @questions = qw(who what when where why);
print grap(sub {/he/}, @questions) ? 'yes' : 'no';