+++ /dev/null
-#!usr/bin/perl
-#This program is written by Rajani Raja
-#This is a program to get .pf file used in strawberrycyc
-#===========================================================================
-# Enable Perl warnings
-#use strict;
-#use warnings;
-#use Array::Unique;
-
-#Load libraries
-
-
-
-$f2 = "ORY_PF.txt";
-open(FH2,$f2) || die ("could not open file!");
-@final =<FH2>;
-close FH2;
-$finalcnt =@final;
-print $finalcnt;
-print "\n";
-open(FH,">>orypf.txt");
-for($i=0;$i<$finalcnt;$i++)
-{
-
-if(@final[$i] =~ m/ID/)
-{
-#print FH "//";
-print FH @final[$i];
-#print FH "\t";
-}
-elsif(@final[$i] =~ m/FUNCTION/)
-{
-print FH @final[$i];
-#print FH "\t";
-}
-elsif(@final[$i] =~ m/EC/)
-{
-print FH @final[$i];
-#print FH "\t";
-
-}
-elsif(@final[$i] =~ m/SYNONYM/)
-{
-print FH @final[$i];
-#print FH "\t";
-}
-
-}
-
-close FH;
-
-$final2cnt =@final2;
-print $finalcnt;
-print "\n";
-#print $final2cnt;