use warnings;
use strict;
use File::Find;

my $directory = "\.\\v706_7-17";  # Set directory to search

find(\&wanted, $directory);

sub wanted {
	return unless -f;  # Operate only on files, not directories
	my $curfile = $_;
	if ($curfile =~ m|list\$\$|i) {  # If the file is a LIST$$
		print "$directory\n";  # For debug purposes
		print "$File::Find::dir\n";  # For debug purposes

		$File::Find::dir =~ m|$directory\/(.*)|;  # Variable way that didn't work
		# $File::Find::dir =~ m|\.\\v706_7-17\/(.*)|;  # Hardcoded way that worked

		my $name = $1;
		$name =~ s|\/| |;  # Replace "/" with " " for use in naming the worksheet
        ... #and on to the rest of the code.

##</code><code>##

.\v706_7-17
.\v706_7-17/DSP-23/6DCL_Ada_Sci

##</code><code>##

my $directory = "\.\/v706_7-17";  # Set directory to search

##</code><code>##

./v706_7-17
./v706_7-17/DSP-23/6DCL_Ada_Sci