if($file =~ m/\.txt$/i){ #backup to $BACKUP_BASE_DIR $dstDir = $BACKUP_BASE_DIR.$myDir; system("/bin/mkdir -p -m 755 $dstDir"); system(`/bin/cp -p $currentFile $dstDir`); print "$CP $currentFile $dstDir"; print "\n"; } else{}