in reply to File parse

Effectively you are passing fixed length records. Try unpack. 

#! perl -slw
use strict;

while (<DATA>) {
    my @data = unpack 'A9 xx A14 xx A7 xxx A*', $_;
    { local $,='|', print @data; }
}

__DATA__
0x130005d  1.253.54.1_MIB  0x230f0   SNMP
0x130009c                  0x1006b   SnmpPif

# Gives
C:\test>217843
0x130005d|1.253.54.1_MIB|0x230f0|SNMP
0x130009c||0x1006b|SnmpPif

C:\test>

[download]

Okay you lot, get your wings on the left, halos on the right. It's one size fits all, and "No!", you can't have a different color.
Pick up your cloud down the end and "Yes" if you get allocated a grey one they are a bit damp under foot, but someone has to get them.
Get used to the wings fast cos its an 8 hour day...unless the Govenor calls for a cyclone or hurricane, in which case 16 hour shifts are mandatory.
Just be grateful that you arrived just as the tornado season finished. Them buggers are real work.

In Section Seekers of Perl Wisdom