#!/usr/bin/perl -w
use File::Basename;
fileparse_set_fstype("MSDOS");
my $path = '\nbs\main\den\rel_10.\cr_Q00472526-03-1\final';
$path = dirname(dirname($path))."\\".basename($path);
print $path,"\n";