next if $mk =~ /uc qq{'$folder'}/i;