my @ar = split( ' ', $str );