=pod

/^[adsf0asd]/ will match if $_ contains a or d or f or 0 or s .
It matches character classes, not words.

=cut

my @matchthis = qw(abe age rod);
my $beginswiththis = join '|', @matchthis;
print "looking for strings that begin with '$beginswiththis'\n";

@_ = qw( abey AbEy abeoy agg aggb agge agee rodo rodd rddo);

print "looking through:", join(' ', map { "'".$_."'" } @_),"\n";

for (@_) {
print "Found one: ",$_,"\n" if(/^($beginswiththis)/);
}
[download]