$partial = 'sb';
for (qw/hsbn admin/) {
    $valid = 1, last if index($_, $partial) != -1;
}
print $valid ? 'Woohoo!' : 'Blah...';