zraveite
zna4i iskam da iztriq samo edin red ot edin moi fail, no taka , 4e posle da ne se polu4i prazen red na negovoto mqsto
redovete sydyrjat danni razdeleni na 6 4asti sys znaka '=' i vseki red e dylyg 137 simvola. otivam sys funkciqta seek nato4noto mqsto no neznam kak da iztriq tozi red, shte dam primer:

sysopen(DEL, $library, O_RDWR|O_CREAT) or die "Cannot open file $library: $!";

flock(DEL, LOCK_EX) or die "Cannot flock $library: $!";

my ($var, @vars, $i);

while ($var = <DEL>) {

        $i++;  ## tazi promenliva mi pokazva to4niqt red

        chomp $var;

        foreach (split(/=/, $var)) {

             push @vars, $_;

             if ($_ =~ /($param)/) {

                 seek(DEL, 137 * $i, 0) or die "cant seek: $!";

                  truncate(<DEL>, 137); #tova neznam kak da  go izpolzvam

                  close DEL;

                  exit(0);

             }

         }

}

ne e li
truncate DEL,137;

Ako te kefi da si pravish progrmata slzno neefektivna - davai sus seek i truncate.
Slaed kato znaesh kakvo tutrsish (koi red):

$reg = rq/pattern_za_otkrivane_na_reda/;
s/$reg\n//mg while (<FH>)