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