% perl -le '$_ = ($x) = (4, 5, 6); print'
3