Помогите одалеть perl. чувствительность к регистру в регулярных выражениях

Это фрагмент кода программы для поиска по сайту:

while (<FILE>) {
if (/$query/io) {
s|$query|$query|gio;
push @{ $matches{$full_path}{content} }, $_;
$matches{$full_path}{file} = $file;
$matches{$full_path}{num_matches}++;
}
}

Не смотря на то, что в строке /$query/io стоит "i" программа все равно обращает внимание на регистр!!!!
В чем дело?

И еще пару Вопросов:
1. Почему могут из десятка текстовых файлов, обрбатываемых параметром -Т, только несколько определяются, как тектовые?
2. Как организавать поиск только по заданным тегам, например