DB<39>  $_="/foo\n/foo/\n/foo/////"

  DB<40> say "$_ --> ",s(/*$)(/)r for split /\n/
/foo --> /foo/
/foo/ --> /foo/
/foo///// --> /foo/