Select Code to Download

Select or download this
my ($s1,$n,$s2,$v2,undef) = split ';',$_,5;

{"ip":["2.3.4.5","2.3.4.5"],"id":"2","host":"www.cnn.com"}
{"ip":["3.4.5.6","1.2.4.5"],"id":"4","host":"www.google.com"}
{"ip":["1.2.3.4"],"id":"1","host":"www.example.com"}
{"ip":["3.4.5.6"],"id":"3","host":"www.google.com"}
{"ip":["2.3.4.5"],"id":"2","host":"www.example2.com"}

Select or download this

{"id":"1","Answer":[{"ip":"1.2.3.4"}],"host":"www.example.com"}
{"id":"2","Answer":[{"ip":"2.3.4.5"},{"ip":"2.3.4.5"}],"host":"www.cnn
+.com"}
{"id":"3","Answer":[{"ip":"3.4.5.6"}],"host":"www.google.com"}
{"id":"4","Answer":[{"ip":"3.4.5.6"},{"ip":"1.2.4.5"}],"host":"www.goo
+gle.com"}
{"id":"2","Answer":[{"ip":"2.3.4.5"}],"host":"www.example2.com"}

Select or download this
```
#!/usr/bin/perl
use strict;
...
}
```