my %data = /([^=\s]+)=(\S*)/g;

print "$_ is $data{$_}\n"
    for
        grep /^[abc]\z/,
        keys %data;