while (<IN>) {
	
	$record = "";
	
	@values = unpack($template, $_);
	
	foreach $field (@values) {
	    $field =~ s/\s+$//;
	    $record .= "\"" . $field . "\"" . $sep;
	}
	
	chop($record);
	$record .= "\n";
	print OUT $record;
}