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