print $str =~ /(\S+)\s*$/;