Strip iTunes purchase metadata from DRM-free AAC files

strip_aac.pl

#!/usr/bin/env perl
use strict;
use File::Find::Rule;
use Capture::Tiny qw(capture);

sub atomic {
    my($file, @cmd) = @_;
    capture {
        system "atomicparsley", $file, @cmd;
    };
}

my @files = File::Find::Rule->file->name('*.m4a')->in("$ENV{HOME}/Music/iTunes");
for my $file (@files) {
    if (atomic($file, '-t') =~ /apID/) {
        warn "Stripping Apple metadata from $file\n";
        warn atomic($file, "--manualAtomRemove", "moov.udta.meta.ilst.apID", "--manualAtomRemove", "moov.udta.meta.ilst.purd", "-W");
    }
}