Select Code to Download

use strict;
use warnings;
...
}

print $str;

<tag1>Complete</tag1><tag2>3386</tag2><tag3>77844</tag3><tag4>11</tag4
+><tag5>30</tag5><tag6>470</tag6>