my @a = split(" ", $str);