--- /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;
+++ /dev/null
-test 1
-
-modified by sam fox - 13:23 - 10/25/11
\ No newline at end of file
+++ /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;
-