sub parse {
    my @fields = split /((?:<[^>]+>|{[^}]+})+)/, shift;
    shift @fields if $fields[0] eq '';
    return @fields;
}