while ( <FH> ) {
        my ( $part1, $junk ) = split /#/;
        my ( $junk2, $ipaddr ) = split / /, $part1;