perl -e '($_ = (($x) = (4, 5, 6)));print'
3#and my shell prompt here of course