I'd probally do it that way: perl -e '$x=1;print $x'. But that only works with your (maybe cutted) example. If you want to get one out of two strings depending on the value of something use perl -e '$x=1;print $x?'foo':'bar'.

$§=lc(sub{}^" \6 \n");$§=~s/\(.*\)//;for(split ('',$§)){$/=$_;for(5..7){$/++}$:.=$/}print$:;1