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]

##</code><code>##

D:\WINNT\unxtools>sh
HIAWATHA# ls | perl -ple" s/\./-.-/"
FlexLexer-.-h
StdDisclaimer-.-html
UnxUtilsDist-.-html
agrep-.-exe
ansi2knr-.-exe
basename-.-exe
bc-.-exe
bison-.-exe
bison-.-hairy
[snip]