Select Code to Download

my $string = "--param1 blabla --param2 bla bla blo";
my %newhash = $string =~ /--(\w+)\s+(.*?(?=\s*$|\s*--))/g;
for (sort keys %newhash) {
  print "$_ = <$newhash{$_}>\n";
}