use File::Inplace;
 
my $editor = File::Inplace::->new(
    file => "/opt/btb_webservice/ver3/lease_list.txt");
while (my ($line) = $editor->next_line) {
   $line =~/$client_mac/ or next;
   $editor->replace_line(""); # Zap line
}
$editor->commit;