if ( ( $str=~/a\[s\]/ || $str =~/h\[s\]/ ) 
   && ( $str... )   ){
   ....
   }