use strict;
use warnings;

my $row = "I made this up";

if (defined($row) && ($row =~ m/\(\*[ ]+\"\@PATH\"[ ]+:=[ ]+'(\/)?([\*A-Za-z_ ]*(\/)?)+'[ ]\*\)?/)) {

     my @path = split(':=', $row, 2);
     my $temppath = $path[1];
     my @trimmedpath = split('', $temppath, 3);

     my $currentpath = $trimmedpath[1];
}