use strict;
use warnings;
use File::Copy;

sub update_record_now {

my ($rcid,$car,$owner) = @_;

open my $infile, '<','cardata.txt' or die $!;
open my $outfile, '>', 'cartemp.txt' or die $!;

while (<$infile>) {

s/^$rcid\:.*/$rcid\:$car\:$owner/g;

print $outfile $_;
}

my $pinfile = "cardata.txt";
my @data;

{ 

open(my $data_file_handle, '<', "$pinfile") or die("Can't open file: $pinfile");          

@data = <$data_file_handle>;
close($data_file_handle);
close $pinfile;
}

chomp(@data); 
open(my $out_file_handle,'>', $pinfile) or die("Can't open file: $pinfile");

foreach my $line_from_file ( @data ) {
my @field = split( /\:/, $line_from_file );           
 
next if( $field[0] == $rcid ); 
print $out_file_handle $line_from_file, "\n";
}

close $pinfile;
close $out_file_handle;
close $infile;
close $outfile;

move 'cartemp.txt', 'updatedcardata.txt';
}

__DATA__
1:Chevy:Bob
2:Ford:Tom
3:Fiat:Dave