If you use captures in a repeated match (with + or *), then the regex engine will capture the last match. So you can try:

if($in =~ /(?:\W*(\w+))+/) {
    print "Last word: $1\n";
}
[download]

With your data, that prints

Last word: senthil
[download]