For work "do not have slash on end", I think this is better:

if ( $str !~ m[/$] ) {
    # do something
}
[download]

which don't need to escape "/".