Regex help 1

[Zoom1234]

Hi,
I have following strings

string1: //ap21cnedc22/retail/main/eCommerce/Development/Release1_updated_Content/shop/production/WORKAREA/Application_Development
string2: //ap21cnedc22/retail/main/eCommerce/Development/Release1_updated_Content/shop/production/WORKAREA/Application_Development/test/test1

The string will always have /main and WORKAREA in it.
I have to extract the string which is next level of WORKAREA
i.e.
/main/eCommerce/Development/Release1_updated_Content/shop/production/WORKAREA/Application_Development
I have tried following regex, but it works only for string2 and not for string1

$string =~ m!(.*)/(.*)/(main.*)/(WORKAREA/.*?)/.*$!;
$output = '/'.$3.'/'.$4 ;

How can i acheive the required output?

 

[KevinADC]

you've over complicated your regexp:

my $string1 = '//ap21cnedc22/retail/main/eCommerce/Development/Release1_updated_Content/shop/production/WORKAREA/Application_Development';
my $string2 = '//ap21cnedc22/retail/main/eCommerce/Development/Release1_updated_Content/shop/production/WORKAREA/Application_Development/test/test1';
for ($string1,$string2) {
   m!(/main.*WORKAREA/\w*)!;
   print "$1\n";
}

- Kevin, perl coder unexceptional!