#!usr/bin/perl
open(DAT,"something/something/something");
while(<DAT>)
{
   $_=~ s/(.*)/Red car/g;
   print DAT $_;
}