##
if ( ( $str=~/a\[s\]/ || $str =~/h\[s\]/ )
&& ( $str... ) ){
....
}
####
1
2 $a=$b=1;
3 $x=1 if $a==1
4 && $b=2;
####
2 $a=$b=1;
3 $x=1 if( $a==1
4 && $b=2);
####
$x=1 if $a{
$b++
};