Select Code to Download

use strict;
use warnings;
...
my @array2 = $string =~ /\s*(.+?)(?=\s+\w+=|$)/g;
 
print "[$_]\n" foreach (@array2);