Помоги разобраться в perl'e!

Вобщем шас перелапачиваю скрипт изначально который был просто архивом ссылок на архив mp3. Проблемка щас в том чтобы икачть в базе сыылок по первой букве. Т.е. в самом исходном скрипте поиск по одной букве был вообще запрещен:
---------------
   if ($or_match) {
       for (0 .. $#{$search_terms}) {
           next if (length ${$search_terms}[$_] < 2);  # Skip single letter words.
           $tmp .= "m/\Q${$search_terms}[$_]\E/io ||";
       }
   }
   else {
       for (0 .. $#{$search_terms}) {
           next if (length ${$search_terms}[$_] < 2);  # Skip single letter words.    
           $tmp .= "m/\Q${$search_terms}[$_]\E/io &&";
       }
   }
   chop ($tmp); chop ($tmp);
------------------
но заменив 2 на еденичку он есессно искать стал... но, тоже ессесно, не по первой букве, а выдаёт ссылки на все файлы в которых такая буква встречается... а надо чотбы по первой букве (символу).
Помогите плз.

Ну что, никто в perl'e не разбирается?  :-/

Ты нигде не просишь, чтоб искалось с начала - вот "оно" и ищет где попало.
в операторе match поставь признак поиска от начала:
  m/^xxxxxx