my %data =
    map split(/=/, $_, 2),
    grep /^[abc]=/,
    split ' ';

print "$_ is $data{$_}\n"
    for keys %data;