say ((split / /, $str)[0]);