print $condition ? $a=~s/foo/bar/, $a : $a;