MONDAY
MD21.2.7.8

TUESDAY # Driver Code = TD20.2.7.8
TD20.2.7.8

WEDNESDAY # Driver Code = WD20.2.7.8
WD30.2.7.8

FRIDAY # Driver Code = FD20.2.7.8
FD40.2.7.8

##</code><code>##

MD21.2.7.8
TD20.2.7.8
WD30.2.7.8
FD40.2.7.8

##</code><code>##

foreach my $line (@array){
    chomp $line; 
    next unless (defined $line && $line ne '');

  my @t = split /\s+/, $line;

    if ( scalar @t =~ /^[a-zA-Z0-9]/){
            print "CCODE: $line\n";
    }
    else {
        print "NO : $line\n";
    }
}