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