You can use \x12 in a regular expression, so just split up your database file on \x12. For example, say your database dump is all in $dump:

my $dump = "foo\x12bar";

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