open (DIFFR, "/tmp/log.diff");
while (<DIFFR>) {
$line=$_;    #read first line
chomp($line);

if ($line =~ /ERROR/) {
print CSVFILE "$line,";
}