if( $b and $a =~ /$b/ ) { do this }

##</code><code>##

if ($b !~ /^$/ and $a =~ /$b/) { do this }