Comment by twic

Lifted directly from sed, one of Perl's inspirations:

  s/replace #/with $/
  s#replace /#with _#