my $data = do { local $/ = undef; <INFILE> };
my %edit = split /=|\r\n/, $data;