Here's a method that doesn't use regular expressions

#!/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";
[download]

Obviously if you are running this on DOS/Windows you probably won't need the fileparse_set_fstype.