Thanks for the suggestions about an alternate delimiter and using File::Compare.

The regex ought to have been:

$sourceDir =~ s#/$##;

which would have removed a trailing forward slash at the end of a directory name. What I actually wrote was, as you mention, pointless.