#!/usr/bin/perl -w
use strict;
use 5.010;

my $string = q(foo);
map { say "$_: ", $string =~ /$_/i?"Matched":"No match" } qw( foo ba(r|z) quux );