#!/usr/bin/perl
use strict;

my $i;
my $data;
open(DATA," basicdez.dat") || die "Cannot open datfile: $!\n";
while(<DATA>){
   chomp;
   unless ($_=~ /"EOS"/){
      $data .= "$_";
   } elsif ($i ne 1) {
      $data .="\n";
   }
   if ($_=~ /"EOS"/){
      $i=1;
   }
}
close(DATA);

my @data=split(/\n/, $data);
for(@data){
   my($Destination,$Program_Type,$Program_Name,$Incomming_Foo,
      $Decision,$Date_Applied,$Appl_Number)=split;

   print "$Destination,$Program_Type,$Program_Name,$Incomming_Foo,";
   print "$Decision,$Date_Applied,$Appl_Number\n";
}
exit;