print $condition ? do{$a=~s/foo/bar/;$a} : $a;