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

my $string = qq (.co.uk/Jobs/Company-Sector/C8A6446X4PND86M9WYJ/Tradewind/?APath=2.21.0.0.0);

$string =~ m/.+\/.+\/.+\/(.+)\/.+/;

print $1;

##</code><code>##

$string =~m/.+\/.+\/.+\/.+\/(.+)\/.+/;