#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %filehash;
while (<DATA>) {
	if ( /(\w*) = (.+$)/ ) {
		$filehash{ $1 } = $2;
	}
}
print Dumper(\%filehash);

__DATA__
foo1 = bar
foo2 = bar bar