while ($str =~ m/{(.+?)}|([\w:]+)/g) {
  print $+;
}