AAD;   ;CCR;365
TEC;UTF;TDE;450
TRE;   ;FTE;164
TEC;URT;TDE;687
ERT;   ;ETR;567
TEC;UGC;TDE;687

##</code><code>##

"AAD";"   ";"CCR";365
"TEC";"UTF";"TDE";450
"TRE";"   ";"FTE";164
"TEC";"URT";"TDE";687
"ERT";"   ";"ETR";567
"TEC";"UGC";"TDE";687

##</code><code>##

while (<INFILE>){
	# the /^ indicates the begining of the research for $_ ($_ is understated here)
	my @Elements = split(/;/,$_); 
		if ($Elements[1] ne '""'){
		print OUTFILE $_;
		}
	}