/[^\@aminos]/

##</code><code>##

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

##</code><code>##

if( "$substr1$substr2" =~ /[^@aminos]/ )