I'm not sure this is of any use but I'll offer it anyway. The idea is to create a mask of codes which is then used to select the correct regex for that column.

#!perl
use strict;
my %REGEX = (
  'A'  => qr'^[A-Z]\d\d$',
  'N'  => qr'^[0-9]+$',
  'N3' => qr'^[0-3]+$',
  'D'  => qr'^\d+\.\d+$',
);
my @p = qw(A N N N3 D D D D D D);

while (<DATA>){
  chomp;
  my @f = split '\s+';
  my $chk = 'OK ';
  for my $i (0..$#f){
    if ($f[$i] !~ $REGEX{$p[$i]}){
      $chk = 'ERR';
      $f[$i] = '**'.$f[$i]." $REGEX{$p[$i]}**";     
    }
  }
  print join ' ',$chk,@f,"\n";
}

__DATA__
C3 6  3 2.4 1.5 2.6  
C32 2  7 3 1.0  
H31 1 1 0 21.0 11.2 5.3 1.4
T11 2  1 0 6.0 1.1 2.2
L06 1  1 0 1.0 3.3
L06 1  4 0 1.1 1.8
[download]