"ZYZYGY3",16-AUG-2002"
done,3485

##</code><code>##


while (<PAST>) {
	next until $. > 1;
	$contents[$co] = $_;
	next if $_ =  /^done/;
	next if m/^\s+$/;
	$co++;
	}

##</code><code>##

"ZYZYGY1",16-AUG-2002"(\n)
"ZYZYGY2",16-AUG-2002"(\n)
"ZYZYGY3",16-AUG-2002"(\n)
done,3485(\n)

##</code><code>##

"ZYZYGY1",16-AUG-2002"(\n)
"ZYZYGY2",16-AUG-2002"(\n)
"ZYZYGY3",16-AUG-2002"(\n)
done,3485(\n)
(\n)