if (/^\s*(\S+)\s+(\S+)\s+(.+\S)\s*$/) {
      my $x = $3;
      $dbh->do('replace into reference_code values (?,?,?)',undef,$1,$2,$3) or die "[$1] [$2] [$3] [". $dbh->errstr ."]";