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

###()=>$Version now contains the number of matches. Probably one.
##</code><code>##

 $Inbox_view = $Database -> GetView('($Inbox)'); 

##</code><code>##

 last unless $Index < 10;