in reply to matching a regular expression

Just insert whatever code words you want to check for, as an array:
$partial = 'sb'; for (qw/hsbn admin/) { $valid = 1, last if index($_, $partial) != -1; } print $valid ? 'Woohoo!' : 'Blah...';