substr($realpath, -length($basename)) = '' if substr($realpath, -length($basename)) eq $basename;