sub parse	{



	open(CLOG, "<$flatfile") || die ("Cannot open $flatfile for reading... $!\n");
	  	
	foreach $tracknumber (<CLOG>)	{

		$tracknumber =~ s/\<Num_0\>/0/g;
		$tracknumber =~ s/\<Num_1\>/1/g;
		$tracknumber =~ s/\<Num_2\>/2/g;
		$tracknumber =~ s/\<Num_3\>/3/g;
		$tracknumber =~ s/\<Num_4\>/4/g;
		$tracknumber =~ s/\<Num_5\>/5/g;
		$tracknumber =~ s/\<Num_6\>/6/g;
		$tracknumber =~ s/\<Num_7\>/7/g;
		$tracknumber =~ s/\<Num_8\>/8/g;
		$tracknumber =~ s/\<Num_9\>/9/g;
		$tracknumber =~ s/\<Num_\.\>/\./g;
		$tracknumber =~ s/\<Num_\-\>/\-/g;
		$tracknumber =~ s/\<Num_\/\>/\//g;
		$tracknumber =~ s/\<Tab\>/\t/g;
		$tracknumber =~ s/\<Tab//g;
		$tracknumber =~ s/\<Up\>//g;
		$tracknumber =~ s/\<Down\>//g;
		$tracknumber =~ s/\<Alt\>//g;
		$tracknumber =~ s/\<Ctrl\>//g;
		$tracknumber =~ s/\<PgDwn\>//g;
		$tracknumber =~ s/\<PgUp\>//g;
		$tracknumber =~ s/\xA0/ /g;
		$tracknumber =~ s/\xA1//g;
		$tracknumber =~ s/\xA2//g;
		$tracknumber =~ s/\xA4//g;
		$tracknumber =~ s/\x0D/\n/g;
		$tracknumber =~ s/\x0A/\n/g;
		$tracknumber =~ s/\<Num_//g;
		$tracknumber =~ s/\<Num//g;
		$tracknumber =~ s/\<Nu//g;
		$tracknumber =~ s/\<Numpad_3\>/\n/g;
		$tracknumber =~ s/pad_3\>/\n/g;
		open(OUTPUT, "+>>$output") || die ("Cannot open output file$!\n");
			print OUTPUT "$tracknumber";
		close OUTPUT;
	}

	close CLOG;

}