#!/usr/bin/env perl
use warnings;
use strict;

# combine alle individual prot files into one big databases

my $final_file = "all.prot";
map {
	/^([^._]+)/;
	system( qq#gunzip -c $_ | sed 's/^>/>$1|/' >> $final_file# );
} glob( "*.gz" );
