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  222-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@google.com
114949  10.10.184.0    blockTechName   TEST LAN
114949  10.10.184.0    blockSecPhone   222-555-3232
114949  10.10.184.0    blockTechEmail  terCInternal@google.com
114949  10.10.184.0    blockSecEmail   John.goody@google.com
114949  10.10.184.0    nasa_nets       off


##</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|blockA
dminName=test admin|blockSecName=John G. Smooth|blockTechPhone=222-555-1212|bloc
kAdminName=Lucy P. Wallice|blockAdminId=8878787|block_name=unknown|blockSecId=78
7878|blockAdminEmail=lucy.p.wallice@google.com|blockTechName=TEST LAN|blockSecPhon
e=222-555-3232|blockTechEmail=terCInternal@google.com|blockSecEmail=John.good
y@google.com|nasa_nets=off

##</code><code>##

    $out_file="/tmp/brian_test.$datestring";
    open(IN,"<$TMPCONTLIST") or die "Can't open $TMPCONTLIST!\n";
    open(OUT,">$out_file") or die "Can't open $out_file!\n";
    while ($line=<IN>) {
        @fields = split /\t/,$line;
        $line = join "|", @fields[1,2,3,4];
        print OUT $line;
        print OUT "\n";
    }
    close IN;
    close OUT;

##</code><code>##

10.10.9.48|User_POC_Phone|222-555-2322
|
10.10.9.48|Room|1105A
|
10.10.9.48|Jack|1105A--05D
|
10.10.9.48|org_code|B703
|
10.10.9.48|Building|1268A