String building

$FindBin = /../../../sock_server_/server";

hvordan får jeg lavet det så ledes at jeg kun tager server delen af denne string ud af $FindBin kan kun få alt andet ud af denne string fx

$bin =~ /(.*)\/[\w-]+/;
    $bin_dir = $1;

så indeholden den  "/../../../sock_server_" men det er lige det modsatte jeg vil have hvordan gør jeg det