> $line =~ s/$pattern/$replace/g; Jestli jsem to pochopil spravne, tak misto g dat ge (s///ge). RTFM - man perlop: e Evaluate the right side as an expression. > &change_file($file,"^\([^#]*-autorespond\)", "# \$1" ); > --------------------- > Bohužel je výsledkem řádek: > # $1 Luf