my $avg = 0;
if (my ($x, $y) = $str =~ m!(\d+)/(\d+)!) {
    $avg = $x / $y if $y;
}