Note also you have the following:

   while(my $protein =  ...
      if(my $protien =~ ...
                 ^^
[download]

The 'if' will never match because you have declared a new variable. In the 'if', correct the spelling and drop 'my':

   if ($protein =~ ...
[download]