my $match = pack 'H*', 
            '53005f00560045005200530049004f004e005f004' .
            '9004e0046004f0000000000bd04effe00000100';

open (FILE, 'foo') or die $!;
while (<FILE>) {
    print "Found: $1, $2, $3, $4\n"
        while s/$match(\S{4})(\S{4})(\S{4})(\S{4})/;
}
close FILE;