open (FILE ,"log.old"); 
while (<FILE>) { 
chomp (); 
my %zxc = split (/\b[= ]\b/); 
foreach my $k (keys %zxc) { 
print "$k: $zxc{$k}\n"; 
}} 
close (FILE);

use strict; 
use warnings; 
use Text::CSV_XS; 
use Data::Dumper qw(Dumper); 
my $options = { 
    quote_char         => q("), 
    sep_char           => q( ), 
    allow_loose_quotes => 1, 
}; 
my %zxc; 
my $csv = Text::CSV_XS->new($options) 
    or die "Cannot use CSV: ".Text::CSV_XS->error_diag (); 
open my $CSV_FILE, '<', 'q18.csv' or die "Cannot open CSV file:$!"; 
while ( my $row = $csv->getline($CSV_FILE)){ 
    for (@$row) { 
        my ($key, $value) = split '='; 
        $zxc{$key} = $value; 
    } 
} 
print Dumper \%zxc;