perl -e "while (1){@X=split/:/,'1::',-1}"