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