use warnings;
use strict;
use File::Basename;


my $Script = $0;
my $ScriptPath = dirname($Script);
my $ScriptName = basename($Script, ".pl").".pl";
my $ScriptVersion = "1.0.0";

my %TestStrings = ("00001" => "C:\\Test1",
				   "00002" => "C:\\Test2\\",
				  );
            	 
my $TestPatternKey = '';

print "\n$ScriptName \n\n";
	
print "\n  Loop through the test Strings in the \%TestStrings Hash:";
	
foreach $TestPatternKey (sort keys %TestStrings)
{
	if (length($TestStrings{$TestPatternKey}) > 0)
	{
		printf("\n\n  \$TestPatternKey: %-6s    \$TestPatternKeyValue: %-40s \n",$TestPatternKey,$TestStrings{$TestPatternKey});

		if (substr($TestStrings{$TestPatternKey},length($TestStrings{$TestPatternKey})-1,1) ne "\\")
		{
			$TestStrings{$TestPatternKey} .= "\\";
			print "                                        Corrected: $TestStrings{$TestPatternKey} \n\n";
		}
		else
		{
			print "\n";
		}
	}
}