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

[ZDV]

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

while ()  {
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. Как организавать поиск только по заданным тегам, например

[glebushka]

ZDV:
В чем дело?

Перл не воспринимает символы в твоей строке как буквы.
Подробнее: man perllocale

ZDV:
1. файлов, обрбатываемых параметром -Т

это как?

ZDV:
2. Как организавать поиск только по заданным тегам, например

в чём у тебя возникла проблема? Подумать и организовать.

[ZDV]

glebushka

1. Можете по подробнее рассказать, как решить эту проблему?
Я пробовал устанавливать кодировку, но это не помогло:

    $locale = "Russian_Russia.1251";
    setlocale(LC_CTYPE, $locale);

2.  foreach $file (@files) {
          if (-T $file) {
         #что-то делаем      
         }
       }
При такой конструкции perl воспринимает почему-то из десятка текстовых (*.html) файлов только несколько как текстовые, а остальные не понятно как?

Может я что-то не допонимаю?

3. Для меня регулярные выражения в perl - сущий ад: то они работают, то нет. то переменная $_ содержит что надо, то нет. В php у меня таких проблем нету, но хочится perl победить!!!!
Мне нужно просмотреть в файле все теги

,  и