#!/usr/bin/perl

use strict;
use warnings;
use Fcntl qw(:seek);
use Data::Dumper; 

open my $fh, '<', 'Test.NEW' or die "File not found: $!";

binmode($fh);

my $data = do{ undef $/; <$fh> };
my @data = split /(?=3d3d)/, unpack ('H*',$data); 

for my $xdr (@data) {
    open (my $fh1, '<', \$xdr);          # create a filehandle from scalar
    read ($fh1, my $buffer, 2);           # read the eye catcher
    read ($fh1, $buffer, 2);                # read the length
    my $length = unpack 'n', $buffer; # identify the length in decimal
    seek $fh1, 0, 0;                           # reset the offset
    read ($fh1, $buffer, $length);      #read till the length to prevent garbage bytes
    process($buffer);
}
#print Dumper \@data;