Допустим есть такая ситуация: 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"; } Не подскажите как с этим справиться? Уже гугль перерыл весь, но так ничего не нашел. Заранее благодарю.