[Bek]

#!/usr/bin/perl -w    
$infile = "qwerty.cfg";  
open FD0, "> tmp";
open FD, "< $infile" || die "cannot open qwerty.cfg";    
   while (<FD>) {
     if ($_ !~ m/всем привет/) {
       print FD0 "$_\n";
     }
   }
   close FD; close FD0;
   unlink ($infile);
   rename ("tmp",$infile);

примерно так на perl'е выглядит
Исправил ошибки, но оптимизировать не стал