use strict;
use warnings;
use Data::Dumper;

my %stuff_from_file;

open (IN, "<input.txt");

while (<IN>) {
	
   my @array = split (/(?<!=)"/, $_);  # Split each line by the " which is not preceeded by =
	
   foreach my $ele (@array) {
      $ele =~ s/"//;                      # Remove the other "
      my ($key, $val) = split ("=", $ele);
      push @{$stuff_from_file{$key}},$val;
   }
}

print Dumper \%stuff_from_file;

close IN;

##</code><code>##

$VAR1 = {
          'ul' => [
                    '0',
                    '0',
                    '0.00',
                    '0.05'
                  ],
          'w' => [
                   '0',
                   '0',
                   '0',
                   '0',
                   '0.00',
                   '0.00',
                   '0.09',
                   '5.50'
                 ],
          'vgrq' => [
                      '0',
                      '0',
                      '0.00',
                      '58.91'
                    ],
          'r' => [
                   '0',
                   '0',
                   '0.00',
                   '0.00'
                 ],
          'rrqm' => [
                      '0',
                      '0',
                      '0.00',
                      '0.00'
                    ],
          'elped_me' => [
                          '0',
                          '0',
                          '1',
                          '1'
                        ],
          'devce' => [
                       'db',
                       'd',
                       'db',
                       'd'
                     ],
          'dvgqu' => [
                       '0',
                       '0',
                       '0.00',
                       '0.00'
                     ],
          'wrqm' => [
                      '0',
                      '0',
                      '0.00',
                      '35.00'
                    ],
          'rmb' => [
                     '0',
                     '0',
                     '0.00',
                     '0.00'
                   ],
          'vcm' => [
                     '0',
                     '0',
                     '0.00',
                     '0.09'
                   ],
          'wmb' => [
                     '0',
                     '0',
                     '0.00',
                     '324.00'
                   ]
        };