I agree with you 97%. Here's where I don't agree:

This line does not do what you think:

   my ($Version) = ($Notes->{NotesVersion} =~ /\s*(.*\S)\s*$/);

   ###()=>$Version now contains the number of matches. Probably one.
[download]

The evaluation is in list context($Version is inside round parens), so a list of group matches is returned - as an example:

#!/usr/bin/perl
use strict;
use warnings;

my $teststr = "ciao a tutti";
my ($sep) = ($teststr =~ /\w+ (\w+) \w+/);
print "result: [$sep]\n";

__END__
result: [a]
[download]