http://www.perlmonks.org?node_id=807975


in reply to Re: Checking a path
in thread Checking a path

Note that for more concision the last character of the string can be obtained by:
substr($TestStrings{$TestPatternKey}, -1)