P:\test>ls | perl -nle"s/\./-.-/; print"
237671-.-pl8
242776-.-pl8
243366-.-pl8
250383-.-pl8
250495-.-pl8
251580-.-pl8
251933-.-pl8
252633-.-pl8
253059-.-pl8
[snip]