#!/usr/bin/perl -w
use strict;
use Data::Dumper;
# create scalar variable to define the file that will be 
# parsed.
my $genpept = "/Users/mgavibrathwaite/Desktop/proteins.gp";
#Set the global record separator to "//"
open(my $in,"$genpept");
undef $/; 
my @genpepts = split(/^\w{5}/,$in);
print Dumper(@genpepts);