#!/usr/bin/perl

my $in = $ARGV[0];
my $p = $ARGV[1];
my $s = $ARGV[2];

open IN, "<$in" or die $!;
open P_OUT, ">$p" or die $!; 
open S_OUT, ">$s" or die $!;

while(<IN>){
    chomp;
    
    if(/^>/){
	my @header = split / /;
	
	if($header[2] ne ''){
	    print P_OUT "$header[0]"." "."$header[1]"." "."$header[2]\n";
	}
	else{
	    print S_OUT "$header[0]"." "."$header[1]\n";
	}
    }
    #unless(/^>/){
	#print OUT "$_\n";
	#next;
    #}
}

close(IN);
close(P_OUT);
close(S_OUT);