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