use Modern::Perl;
use Sort::Key::IPv4 qw(ipv4sort);

my %hash;

do {
    chomp( my ( $ip, $fld2, $fld3 ) = ( split /\t/ )[ 1 .. 3 ] );
    push @{ $hash{$ip} }, "$fld2=$fld3";
  }
  for <DATA>;

print "$_|" . join( '|', @{ $hash{$_} } ) . "\n\n" for ipv4sort keys %hash;


__DATA__
9885	10.10.9.48	Room	1105A
9885	10.10.9.48	Jack	1105A--05D
9885	10.10.9.48	org_code	B703
9885	10.10.9.48	Building	1268A
114948	10.10.184.0	nasa_nets	off
114948	10.10.184.0	blockSecName	test name
114948	10.10.184.0	blockTechName	brian test
114948	10.10.184.0	blockAdminName	test admin
114949	10.10.184.0	blockSecName	John G. Smooth
114949	10.10.184.0	blockTechPhone	256-555-1212
114949	10.10.184.0	blockAdminName	Lucy P. Wallice
114949	10.10.184.0	blockAdminId	8878787
114949	10.10.184.0	block_name	unknown
114949	10.10.184.0	blockSecId	787878
114949	10.10.184.0	blockAdminEmail	lucy.p.wallice@nasa.gov
114949	10.10.184.0	blockTechName	TEST LAN
114949	10.10.184.0	blockSecPhone	256-555-3232
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

##</code><code>##

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 test|blockAdminName=test admin|blockSecName=John G. Smooth|blockTechPhone=256-555-1212|blockAdminName=Lucy P. Wallice|blockAdminId=8878787|block_name=unknown|blockSecId=787878|blockAdminEmail=lucy.p.wallice@nasa.gov|blockTechName=TEST LAN|blockSecPhone=256-555-3232|blockTechEmail=terCInternal@mail.nasa.gov|blockSecEmail=John.goody@nasa.gov|nasa_nets=Soff