# tell perl to make the input record separator the character with hex value '0c'
$/ = pack('c',0x0c);

while(<IN>) {
        my @temp = split(/\n/,$_);

        # rest of processing
}