my $count; my %params = map { ++$count % 2 ? lc : $_ } $raw =~ /(\S+)\s*=\s*(\S+)/g;