Spitting iPhone X Portrait Mode Photos To Get Depth Data

split.pl

#!/usr/bin/perl
# Running this script with the JPG file as the first argument should produce three images: 
# - out1.jpg: The original color photo (4032x3024 px)
# - out2.jpg: A thumbnail of the original color photo (160x120 px)
# - out3.jpg: A grayscale depth map (768x576 px)
#
# Thanks to hfs's perl hex splitting script (https://stackoverflow.com/a/11293884)
#
undef $/;
$_ = <>;
$n = 0;
for $content (split(/(?=\xFF\xD8)/)) {
        open(OUT, ">out" . ++$n . ".jpg");
        print OUT $content;
        close(OUT);
}