#!/usr/bin/perl -w
# Convert USDA format to | delimited file

@files = ("FOOD_DES","FOOTNOTE","NUT_DATA","FD_GROUP","WEIGHT","NUTR_DEF");

foreach $file(@files){ 
	open (FIL, "$file.txt");
	@farray=<FIL>;
	close FIL;
	open (NFIL, ">$file"."_DB");
	foreach $line(@farray){
		$line =~ s/~//g;
		$line =~ s/\^/|/g;
		print NFIL $line;
	}
	close NFIL;
}
