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

##</code><code>##

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

##</code><code>##

.