Select Code to Download

my %data;
while( $html_page =~ m/([\w.]+)\s*=\s*([\w.-]+)/g ) {
    $data{$1} = $2;
}
print "$_ $data{$_}\n" foreach keys %data;

my @data;
while( $html_page =~ m/([\w.]+)\s*=\s*([\w.-]+)/g ) {
    push @data, [ $1, $2 ];
}
print $data[$_]->[0], ' ', $data[$_]->[1], "\n" foreach 0 .. $#data;