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]/ ) ... }
In reply to Re^2: Unmatched [ in regex; marked by <-- HERE in m/[ <-- HERE ^]/
by madM
in thread Unmatched [ in regex; marked by <-- HERE in m/[ <-- HERE ^]/
by madM
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |