GetOptions ( 'sub' => \&
                  ) 

@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);

sub a {
if( "$substr1$substr2" =~ /[^@aminos]/ ) ...
}