in reply to Checking a path

$TestStrings{$TestPatternKey} .= "\\" if $TestStrings{$TestPatternKey}
+ !~ /\\$/;

[download]

In Section Seekers of Perl Wisdom