выкинуть из строки подстроки

Есть строка вида "param1 - value1, param2 - value2..."

нужно выкинуть построки, в которых value=0

написал что-то вроде

$line = "aaa - 5, bbb - 0, ccc - 8";

@var = split(/, /, $line);

$out_str = "";

foreach my $elem (@var)
{
    if ($elem !~ /(.*) - 0/)
    {
        $out_str .= $elem.", ";
    }
}

$out_str = substr($out_str, 0, -2);

очень плохо соображаю в регулярных выражениях, наверняка есть какой-то более элегантный способ)))