$var =~ s#/\z##;