$ perl -wle'                
$condition = 1;
$a = "foo";
print $condition ? ($a=~s/foo/bar/, $a) : $a;'
1bar