for my $file (glob $infiles) {
    open my $in, '<', $file or warn $! and next;
    open my $out, '>', $outpath.basename($file)
        or warn $! and next;
    while (<$in>) {
        s/$regex/$substitute{$1}/g;
        print $out $_;
    }
}