Perl script to extract data from iPhone backups

gistfile1.txt

#!/usr/bin/perl -w

use strict;

# This file clumsily extracts the DB's hidden in the iPhone backup files
# Usage: perl -w bkupextract.pl /Users/flip/Library/Application\ Support/MobileSync/Backup/*/*

my %seen;
foreach my $filename (@ARGV) {
  # Slurp File Contents
  open(FILE, "<$filename") or die "Can't open $filename: $!";
  my $data = do {local $/; binmode FILE; <FILE>};
  close(FILE);

  my $type;
  my $outfilename;

  # skip non-SQLite Files
  if ($data =~ m|SQLite|) {
    # identify the file and use it to name the output
    $type = ($data =~ m!([^/]*?)\.(sqlitedb|db)!) ? $1 : 'unknown';
    $seen{$type}++;
    $outfilename = sprintf "%s_%02d.db", $type, $seen{$type};
    # Helpful progress report
    printf STDERR "%-60s to %-25s\n", $filename, $type, $outfilename;

    # dump the part between "SQLite format 3" and end
    # FIXME -- is there cruft at end?  I don't know the SQLite format.  Maybe you do?
    open(OUTFILE, ">$outfilename") or die "Can't open $outfilename: $!";
    binmode OUTFILE; 
    my $sqlitedb = $data;
    $sqlitedb =~ s/^(.*?SQLite format 3)/SQLite format 3/;
    print OUTFILE $sqlitedb;
    close(OUTFILE);
  } elsif ($data =~ m|Exif|) {
    # identify the file and use it to name the output
    $type = 'IMG';
    $seen{$type}++;
    $outfilename = sprintf "%s_%02d.jpg", $type, $seen{$type};
    # Helpful progress report
    printf STDERR "%-60s to %-25s\n", $filename, $type, $outfilename;

    # dump the part between "SQLite format 3" and end
    # FIXME -- is there cruft at end?  I don't know the SQLite format.  Maybe you do?
    open(OUTFILE, ">$outfilename") or die "Can't open $outfilename: $!";
    binmode OUTFILE; 
    print OUTFILE $data;
    close(OUTFILE);
  } elsif ($data =~ m|PNG|) {
    # identify the file and use it to name the output
    $type = 'PNG';
    $seen{$type}++;
    $outfilename = sprintf "%s_%02d.png", $type, $seen{$type};
    # Helpful progress report
    printf STDERR "%-60s to %-25s\n", $filename, $type, $outfilename;

    # dump the part between "SQLite format 3" and end
    # FIXME -- is there cruft at end?  I don't know the SQLite format.  Maybe you do?
    open(OUTFILE, ">$outfilename") or die "Can't open $outfilename: $!";
    binmode OUTFILE; 
    print OUTFILE $data;
    close(OUTFILE);
  } elsif ($data =~ m|plist|) {
    # identify the file and use it to name the output
    $type = 'plist';
    $seen{$type}++;
    $outfilename = sprintf "%s_%02d.plist", $type, $seen{$type};
    # Helpful progress report
    printf STDERR "%-60s to %-25s\n", $filename, $type, $outfilename;

    # dump the part between "SQLite format 3" and end
    # FIXME -- is there cruft at end?  I don't know the SQLite format.  Maybe you do?
    open(OUTFILE, ">$outfilename") or die "Can't open $outfilename: $!";
    binmode OUTFILE; 
    print OUTFILE $data;
    close(OUTFILE);
  } else {
    printf STDERR "type of %s is unknown\n", $filename
  }
}