Help for this page

Select Code to Download

Select or download this

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