Запутался в Perl, подскажите.

попробуй обрамить переменную \Q и \E:

iHead, вроде бы стработало, где почитать что дает \Q \E ?

http://www.perlmonks.org/bare/?node_id=468053

это эквивалент quotemeta

Да, как любой символ. В вашем примере достаточно было вместо

$b = "q.q";

написать

$b = 'q\.q';

bbon, Спасибо, но не совсем так, я написал выше, что оригинальное сравнение происходит по файлу который читается:

 while(<S>) {
    if ($_ =~ /(.+)!$username!(.+)/) {

По этому $username изначально не известен.... он приходит в переменную, по этому как туда применить экранирование - не ясно :(

А данную конструкцию я просто привел для примера, что бы проверить....

Представьте что перед while() например стоит $username = $ARGV[0];

 while(<S>) {

    if ($_ =~ /(.+)!$username!(.+)/) {

Ну, тогда, самое простое, как вам написали выше - использовать \Q (запрет на метасимволы), я не знаю всей задачи, но мне кажется, что (.+) - лишнее, иначе не отловит имя пользователя в начале-конце строки, примерно так

my $username = $ARGV[0];



while(<S>) {

    if (m/!(\Q$username\E)!/i) { # i - регистр не важен

        print $1, " - ok\n"; # $1 - найденное в скобках совпадение

    }

    else {

        print "not ok\n";

    }

}

Совершенно верно, его там быть и не должно (имя пользователя в начале строки) файл подается в строгом формате xxx!$username!xxx это уже вторичная обработка данных так сказать, сначала создается тот самый файл... Ну в общем это уже не важно, всем спасибо за пояснения и участие!!!