my $labels = qr/Programming Languages|Author|Date Created/;

my $re = qr/($labels):(.+?)(?=$labels|$)/;

while( my( $label, $data ) = $text =~ m/$re/g ) {
    print "Label: $label\tData: $data\n";
}