my $string = <<STRING;
A Title
What:  A description of what it is
Date added:  January 16th, 2006 ( an optional source )
Data:  some data

Another Title
What:  Another description
Date added:  April 20th, 2005
Data:  some other data
STRING

##</code><code>##

my @fizzbin = ( $string =~ m{
    (\w+)\n                     # Grab the title
    What:\s+([^\n]+)\n          # Grab the what
    Date\sadded:\s+([^\(^\n]+)  # Date added
    (\([^\n]+\))\n              # Optional source
                                # I want to use a default
                                # value if nothing is           
                                # captured
    Data:\s+([^\n]+)\n          # Grab the data
}xmgs);