And the 6th way to skin the cat:

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

.+? is a non-greedy match-anything. $+ is last captured group.