perl -e'print scalar split /(:)/, q(:)'
2