open (INFILE, "<", $infile) or die $!;
	open (OUTFILE, ">:raw", $outfile) or die $!;			
	while ( <INFILE> ) {
		chomp;		
		printf OUTFILE '%-200s', $_; 
	}	
	close INFILE;
	close OUTFILE;