A.. if($aa=~/x/){$pa=1;$pb=1;}else{$pa=0;$pb=0;}
B.. $aa=~/x/?($pa=1,$pb=1):($pa=0,$pb=0);

等価らしいです
ソースは、ttp://ww4.tech.nu/?d=653

たしかにコードは短くできるので試したところ
レスポンスが悪く、重くなった気がします