if (/\s*CF=([\w-]+?-(?:NONE|\d+))/) {
 {    
        my $add = $1;
        $add =~ s/(\d+)$/1\/1\/1\/$1/;  
        $add =~ s/NONE/1\/1\/1\/0/;       
        $line .=  ",$add";
 }