....
$m0="";
$rivi=~ s/\d+-\w+-\d+/$m0/i; # for /Name type of date
$rivi=~ s/$cv\w+/$m0/; # NEW trial for /Name type of date
$rivi=~ s/\s+\w+\s+\w+/$m0/;
$rivi=~ s/\s+\w+\s+\w+/$m0/;
.....