#!/usr/bin/perl
$NULL="\\N";
while(<>) {
  next if /^$/;
  chomp;
  @fields = split "\t", $_;
  $numfields = @fields;
  next if $numfields == 0;
  print "2004\t";
  for ($i=0; $i<4; $i+=1) {
    $f = $NULL;
    $f = $fields[$i] if($fields[$i]);
    print "$f\t";
  }
  print "$NULL\t";
  print "BARG\n";
}

sub trim
# trim - trim leading/trailing whitespace from a string.
{
    my @out = @_;
    for (@out) {
        s/^\s+//;
        s/\s+$//;
    }
    return wantarray ? @out : $out[0];
}