Select Code to Download

my @interesting = ();
while(<DATA>) {
...
    push @interesting, $1 if m/^(?:attribute|value): (.*)$/;
}
my %attributes = @interesting; # magic

my %attributes = grep { length } map { m/^(?:attribute|value): (.*)$/ 
+and $1 } <DATA>;

my %dataObjs = ();

...
    push @interesting, $1 if m/^(?:attribute|value): (.*)$/;
}
$dataObjs{$dataObj} = { @interesting };

my %dataObjs = ();

...
    $att                        = $1 if m/^attribute:\s+(.+)/;
    $dataObjs{$dataObj}->{$att} = $1 if /^value:\s+(.+)/;
}