Getting some help to tag a bunch of single flac+cue files.

newcue_kc.pl

#!/usr/bin/perl

use strict;
use Cwd;
use File::Find;

my $dir = $ARGV[0] || $ENV{PWD};
chdir($dir);
my $dir= getcwd();
print "$dir\n";

sub process_file {
    if ( -f $_) {
        my $file = $File::Find::name;
        my ($old, $new, $cd);
        if (($new, $old) = $file =~ m@/([^/]+)/[^/]+(\[[^\]]+\]) FLAC\.cue$@) {
        } elsif (($new, $old, $cd) = $file =~ m@/([^/]+)/CD \d+/[^/]+(\[[^\]]+\]) (CD\d+) FLAC\.cue$@) {
            $new = "$new, $cd";
        }
        next unless $new;
        print "\ncue: '$file'\nold: '$old' new: '$new'\n";
        my $slurp = do { local( @ARGV, $/ ) = $file; <> };
        $slurp =~ s/\Q$old\E/[$new]/;
        print $slurp;
        open(my $fh, '>', "$File::Find::dir/new.cue") or die;
        print $fh $slurp;
        close $fh;
    }
}