Select Code to Download

use strict;
use warnings;
...
print "$str\n";
my @strs = $str =~ m/(\w+=\w+)/g;
print "$_\n" foreach @strs;

1 2=3 4=5
2=3
4=5