How could your code possibly achieve the example array you've shown? If you split "john.doe = 18192812" on whitespace, you will get this: @data = ( 'john.doe', '=', '18192812' ), not @data = ('john.doe = 18192812'). In other words, the results you're describing aren't possible given the raw data you've described, and the code you've shown.

You could populate a hash like this:

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

Or if maintaining order is important, you could do it this way:

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