$str =~ s/\G\s/:/g;