my $in = $ARGV[0];
my $x  = $ARGV[1];
my $y  = $ARGV[2];

open IN   , "<$in" or die $!;
open X, ">$x" or die $!; 
open Y, ">$y" or die $!;

while (<IN>) {
    if (/^>/) {
        if (/infor_present:/) {
            select X;
        }
        else{
            select Y;
        }
    }
    print;
}