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;