Help for this page
my $path = '\nbs\main\den\rel_10.\cr_Q00472526-03-1\final'; $path =~ s/[^\\]+\\(\w+)$/$1/ ; ... __END__ \nbs\main\den\rel_10.\final
my ($leaf ) = $path =~ m/[^\\]+$/g ; #save the leaf ... __END__ \nbs\main\den\rel_10.\final