Perl regex question

0

0

Допустим есть такая ситуация:

my $string = "abcDeFg";
my $search = "/cdef/i";
my ($pattern, $mod) = (split(/\//, $search))[1,2];

И вся соль в следущей строке (там ошибка, но я думаю, понятно, что мне требуется):

if ($string =~ m/$pattern/$mod
        print "Found\n";
} else {
        print "Not found\n";
}


Не подскажите как с этим справиться?
Уже гугль перерыл весь, но так ничего не нашел.

Заранее благодарю.