use strict;
use warnings;

my $line = <DATA>;
my $rt   = <DATA>;

my $cached_line = $line;

$line =~ s/Kept/Resold/g;
$line =~ s/,-1,/,$rt,/g;

print $line;

$line = $cached_line;

chomp $rt;

$line =~ s/Kept/Resold/g;
$line =~ s/,-1,/,$rt,/g;

print $line;

__DATA__
2013-06-13 19:00,2013-06-13,2013-06-01,212276,375296,-1,1461599,1434,61073,US,Kept,300x250,1,0,0.25,0.00025
275805