print join (' ', $str =~ m/..../g);