use strict;
use warnings;

my $file = 'csv_file.csv';
open(my $fh, '<', $file) or die "Can't read file '$file' [$!]\n";

while (my $line = <$fh>) {

    chomp $line;
    my @fields = split(/,/, $line);

     if ($fields[0] eq 'C')
     {
        $fields[0] = 'CONDENSED';
     }
     elsif ($fields[0] eq 'F'){
        $fields[0]='FINAL'
     }
     if ($fields[4] eq '0H')
     {
        $fields[4] = '0HIO'
     }
     elsif ($fields[4] eq '0R')
     {
        $fields[4] = 'OREGON'
     }
   print join(',',@fields);
   print "\n"
}