# YOUR CODE :  
  
#open (FILE, $filename)   
#or die "File in storage could not be opened, check to see if it exists";   
#  
#  
#@peps = <FILE>;   
#print "$filename\n\n";   
#print @peps;   
#$peps = join( '', @peps);   
#$peps =~ s/\s//g;   
#  
#unless ($peps =~ m/ kr | kp | KR | KP /){   
#$peps =~ s/r\/r\n//g;   
#}   
  
# Modify your code to look like this:  
  
# uncomment next 2 lines  
#sub perform_a_protein_digest {   
#open (FILE, $filename) or die "File in storage could not be opened, check to see if it exists";  
  
# comment out next line  
@peps = <DATA>;  
  
# uncomment next 2 lines  
#@peps = <FILE>;  
#close FILE;  
  
print "$filename\n\n";   
print @peps;  
$peps = join( '', @peps);   
$peps =~ s/\s//g;   
  
$peps =~ s/(k|r)(?!p)/\n/gi;  
  
print $peps;  
  
# These lines were unnecessary  
#@peps = split( '',$peps);  
#print @peps;   
  
# uncomment next block for use in your subroutine  
#print "Please enter the name of the file you wish to write the results to:\n\n";   
#$writefile = <STDIN>;   
#chomp $writefile;   
#open (OPENFILE, ">$writefile"); # OPENS A FILE TO BR WRITTEN TOO.   
#print OPENFILE @peps;   
#close(OPENFILE); #CLOSES THE FILE THAT WAS WRITTEN TOO   
#print "File Saved Successfully!\n";  
#}  
  
__DATA__  
  
rkfjsnrevkjnaesveiw  
weciywubecuyweij  
rkmwefkpwewcewe