Unmatched [ in regex; marked by <-- HERE in m/[ <-- HERE ^]/ <br/>

##</code><code>##

@aminos= qw (A R N D C Q E G H I L K M F P S T W Y V B Z X);
if( "$substr1$substr2" =~ /[^@aminos]/ )