Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
# (find-angg ".zshrc" "autopasswd")
# (find-fline "~/" ".passwds.tcl")
# (find-fline "~/.passwds.tcl")
# (find-angg    ".passwds.tcl-")
# (find-sh0 "cd; cp -iv .passwds.tcl- .passwds.tcl; chmod 600 .passwds.tcl")
# (find-sh0 "rm -v ~/.passwds.tcl ~/.passwds.tcl~")

set passwd(puc)     xxx
set passwd(twu)     xxx
set passwd(bitlbee) xxx
set passwd(fm)      xxx
set passwd(inx)     xxx
set passwd(lj)      xxx

proc passwdfilter {} {
  global passwd
  set str [read stdin]
  while {[regexp {^(.*?)\$passwd\(([a-z]+)\)(.*)$} $str -> beg site str]} {
    puts -nonewline $beg$passwd($site)
  }
  puts -nonewline $str
}