if( s/^$rcid\:.*/$rcid\:$car\:$owner/g ){
  print $outfile $_;
}