print +(split /\s/ => $str) [-1];