#!/usr/bin/perl -w
use strict;
use Bio::SeqIO;

my $seqin = Bio::SeqIO->new(-file => "prakashkoringa.fasta", -format => "fasta");

my $seqout = Bio::SeqIO->new(-file => ">new.fasta", -format => "fasta");

while(my $seq = $seqin->next_seq)
	{
		if ($seq->length > 199)
			{
				$seqout->write_seq($seq);
			}
	}
exit;