ls -1 | perl -le 'print join ":", map /(.*)$/, <>'