#!/usr/bin/perl -w
use strict;
local $/ = '//';
my $genpept = "/Users/mb/Desktop/proteins.gp";
my $peptstr1 = '/Users/mgavibrathwaite/Desktop/';
open(my OUT,">$peptstr1")  or die  $!;
open(my IN,$genpept);
#my $i = 1;
while (my $records = <IN>){
	#$i++;
	chomp $records;
	my @genpept;
	push @genpept,($records); 
	print"Processed infile record: $.\n";
	foreach(@genpept){
		print "$_";
	}
}
close(IN);
close(OUT);