Select Code to Download

Select or download this

use Modern::Perl;

...
<item pr_1="a" pr_2="2" internal="co_1" pr_family="2" />
<item pr_1="b" pr_2="2" internal="co_1" pr_family="2" />
<item pr_1="c" pr_2="2" internal="co_1" pr_family="2" />

Select or download this

<item pr_1="a" pr_2="2" internal="co_1" pr_family="2" />
<item pr_1="b" pr_2="2" internal="co_1" pr_family="2" />
...
<item pr_1="a" pr_2="1" internal="co_1" pr_family="2" />
<item pr_1="b" pr_2="1" internal="co_1" pr_family="2" />
<item pr_1="c" pr_2="1" internal="co_1" pr_family="2" />