my ($title, $text, ...) = split /:/;
    push @a, { TITLE => $title, TEXT => $text, ... };