my $dump = "foo\x12bar";

for my $record (split /\x12/, $dump) {
    # process record
}