if (/Grapes/ || /strawberry/i) {
print;
}
else {
print "$_ is not in the list.\n";
}
####
if (/Grapes|(?i:strawberry)/) {
....
}
else {
....
}
####
if(/foo/) {
# do something
}
elsif (/bar/) {
# do something else
}
else {
# complain about falling through
}