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