my $string = <<HTML;
this=x that=x x another=x thing=x
HTML

    my @array2 = split(/\s/, $string);
 
 print $_."\n" foreach (@array2);

##</code><code>##

my $string = <<HTML;
this=x that=x x another=x thing=x
HTML

$string =~ s/ (\w+\=)/ \|$1/g; 
my @array2 = split(/\s\|/, $string);
 
 print $_."\n" foreach (@array2);