http://www.perlmonks.org?node_id=994371


in reply to Regex help

Note also you have the following:

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

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

if ($protein =~ ...