print join ', ', map qq/"$_"/, split ' ', $str;