Select Code to Download

my $string = <<STRING;
A Title
...
Date added:  April 20th, 2005
Data:  some other data
STRING

my @fizzbin = ( $string =~ m{
    (\w+)\n                     # Grab the title
...
                                # captured
    Data:\s+([^\n]+)\n          # Grab the data
}xmgs);