#keep based on pattern match
opendir(DIR, $destinationDirectory) or die $!;
while(my $file = readdir(DIR)){
  next if -d $file;#skip directory entries
  unlink unless $file =~ /$pattern/;
}