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