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

Есть строка вида "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);
​x
 
1
$line = "aaa - 5, bbb - 0, ccc - 8";
2
​
3
@var = split(/, /, $line);
4
​
5
$out_str = "";
6
​
7
foreach my $elem (@var)
8
{
9
    if ($elem !~ /(.*) - 0/)
10
    {
11
        $out_str .= $elem.", ";
12
    }
13
}
14
​
15
$out_str = substr($out_str, 0, -2);

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