Help for this page

Select Code to Download

Select or download this

my @foo = qw(JohnSmith Smiccky aaaaaa);

foreach my $f (@foo) {
    print "Yep $f \n" if ($f =~ /^[qw(Smith Jones)]/);
}

Select or download this
```
Yep JohnSmith 
Yep Smiccky
```