>perl -wMstrict -le "my $v_path = '//rsoesn/main/dis_sites/EDelivery/EDITION/scc_audit01092014'; print qq{ '$v_path'}; ;; $v_path =~ m/((.*)EDITION\/|Edition\/)(.*)/; print qq{\$1 '$1'}; print qq{\$2 '$2'}; print qq{\$3 '$3'}; " '//rsoesn/main/dis_sites/EDelivery/EDITION/scc_audit01092014' $1 '//rsoesn/main/dis_sites/EDelivery/EDITION/' $2 '//rsoesn/main/dis_sites/EDelivery/' $3 'scc_audit01092014'