Re: Question on Regex

Hello, perhaps this helps.

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

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

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

print $1;
[download]

Update: I did not count right, sorry...

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

Regards, Karl

ŤThe Crux of the Biscuit is the Apostropheť

In Section Seekers of Perl Wisdom