while(my $protein =  ...
      if(my $protien =~ ...
                 ^^

##</code><code>##

   if ($protein =~ ...