#!/usr/bin/perl

unless (-d "data") { system "mkdir data"; }
unless (-d "data/devUniPk") { system "mkdir data/devUniPk"; }

for ($N=1; $N<=21; $N++) {
  $file = "/ddn/gs1/home/grimmsa/pwade/emartin/SNAPChIP-K9-K27-May2021/normal_unified_v2-Nof21/files_BED/unified_$N"."of21.ExclBlacklist.bigBed";
  $newfile = "data/devUniPk/unified_$N"."of21.ExclBlacklist.bigBed";
  next if (-e $newfile);
  next unless (-e $file);
  print "cp $file $newfile &\n";
}