#!/usr/bin/perl
use strict;
use warnings;

$a = "some/path/to/somewhere/hello";
if ($a =~ /(.+)(\/path\/)(.+)(\/.+)/)
{
   print "$1 -> $3\n";
}

Output:

some -> to/somewhere