while(defined($line = (<IN>))){
      	if ($line =~m/(PURCHASED ON|SOLD ON|SETTLEMENT ON)/) {
      	    $desc = (split(/\,/, $line))[27]; 
      	    #print "$desc\n";
      	    $tdate = (($desc =~ /PURCHASED\s+ON\s+(.*?)\s+/g )||($desc =~ /SOLD\s+ON\s+(.*?)\s+/g ));
      	    $sdate = $desc =~m/SETTLEMENT\S\s+ON\s+(.*?)\s+/g ;
             print "TDATE $tdate SDATE $sdate\n";
      	}  	
   }