#!/usr/bin/perl

$file    = "/opt/control/etc/status";
$tmpfile = "$file$$";
$RM      = "BLAH";

open($fh1, "<", $file)    or die "Could not open $file:  $!\n";
open($fh2, ">", $tmpfile) or die "Could not open $tmpfile:  $!\n";

$count = 0;
while($line = <$fh1>) {
    $count++;

    $line = "RM=\"rm2\"\n"                 if $count == 31; 
    $line = "$RM\n"                        if $count == 40;
    $line = "rmDESC=\"Result Manager2\"\n" if $count == 43;

    print $fh2 $line;
}

close($fh1);
close($fh2);

system("mv -f \"$tmpfile\" \"$file\"");

#!/usr/bin/perl

$file = "/opt/control/etc/status";
$RM   = "BLAH";

open($fh, "<", $file) or die "Could not open $file:  $!\n";
@list = <$fh>;
close($fh);

$list[30] = "RM=\"rm2\"\n";
$list[39] = "$RM\n";
$list[42] = "rmDESC=\"Result Manager2\"\n";

open($fh, ">", $file) or die "Could not open $file:  $!\n";
print $fh @list;
close($fh);