#!/usr/bin/perl
$NULL="\\N";
@progfields = ();
$n = 16;
for ($i=0; $i<$n; $i+=1) { $progfields[$i] = ""; }
while(<>) {
  next if /^$/;
  chomp($line = $_);
  $line =~ s/\r//;
  my ($bid,$btitle,$al_name,$af_name,$am_name,$btype) = split "\t", $line;
  next unless($bid);
  $progfields[0] = 2004;
  $progfields[1] = $bid if($bid);
  $progfields[2] = $btitle if($btitle);
  $progfields[3] = $al_name if($al_name);
  $progfields[4] = $af_name if($af_name);
  $progfields[5] = $am_name if($am_name);
  $progfields[8] = $btype if($btype);
  $progfields[15] = 'BARG';
  for ($i=0; $i<$n; $i+=1) {
    $f = $NULL;
    $f = $progfields[$i] if($progfields[$i]);
    #$f =~ s/\r//;
    print "$f\t";
  }
  print "\n";  
}

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