my ($lastWord) = $rec =~ /(\S+)$/;
print "$lastWord\n";   #prints 96

#or
$rec =~ /(\S+)$/;
my $lastWord = $1;
print "$lastWord\n";  #also prints 96