Select Code to Download

#!/usr/bin/perl
use strict;
...
    @{$row}[4, 6] = ('N', 'G') if !length($row->[3]);
    print join('|', @$row), "\n";
}

host1|||C||||
host2|||C||||
host3||||N||G|
host4|||C||||
host5||||N||G|