pranavathiyani

#!/usr/bin/perl -w
#Executng the program requires sequence.fasta as single line fasta file
open(FH,"sequence.fasta") or die "file doesn't exist"; #sequence.fasta is the input file
open(OT,">>hypothetical_proteins.fasta");
@ff = <FH>;
$t="";
for($i=0;$i<@ff;$i++){
	if($ff[$i]=~m/hypothetical/){
		$t.= $ff[$i].$ff[$i+1];
	}

pranavathiyani

#Program to extract residues & description from multi-fasta file

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

    my %id2seq = ();
    my $id = '';
    open F,"DENV_PRSEQ.fasta",or die $!; #Input fasta file of DENV_PRSEQ.fasta
    while(<F>){