Select Code to Download

use Modern::Perl;
use Sort::Key::IPv4 qw(ipv4sort);
...
114949    10.10.184.0    blockTechEmail    terCInternal@mail.nasa.gov
114949    10.10.184.0    blockSecEmail    John.goody@nasa.gov
114949    10.10.184.0    nasa_nets    Soff

10.10.9.48|Room=1105A|Jack=1105A--05D|org_code=B703|Building=1268A

10.10.184.0|nasa_nets=off|blockSecName=test name|blockTechName=brian t
+est|blockAdminName=test admin|blockSecName=John G. Smooth|blockTechPh
+one=256-555-1212|blockAdminName=Lucy P. Wallice|blockAdminId=8878787|
+block_name=unknown|blockSecId=787878|blockAdminEmail=lucy.p.wallice@n
+asa.gov|blockTechName=TEST LAN|blockSecPhone=256-555-3232|blockTechEm
+ail=terCInternal@mail.nasa.gov|blockSecEmail=John.goody@nasa.gov|nasa
+_nets=Soff