if ($_ =~ /^\@(.*?)\|/){	
			my @path = split(/\//, $1);