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