Help for this page

Select Code to Download

Select or download this

my ($last) = $in =~ m/(\w+)$/i;
print "last=$last\n";   
...
Prints:
last=senthil
second to last=foo