&spitit;

sub open {
	
	my $infile = your_input_file;
	open(<INFILE>,$infile);
	my @raw = <INFILE>;
	close(INFILE);
	
	return @raw;
	
}

sub parse {
	
	&open;
	my @raw = @_;
	my @output;
	
	for ($i, $i < $#raw) {
		@output[$i] = ($raw[$i] =~ s/{.}{4}$/0000/igm);
		$i++;
	}
	
	return @output;
	
}

sub spitit {
	
	&parse;
	my @data = @_;
	open(<OUTFILE>,output.txt);
	write(OUTFILE, @data);
	close(OUTFILE);
	
}