#!perl -p
use strict;
use warnings;
my  @fields = split /,/;
$fields[3] = $fields[3] > 310 ? 'volmed' :
             $fields[3] == 70 ? 'volmedl':
             $fields[3]
             ;
$_ = join ',', @fields;