:1,$ perldo s/^/#/ unless -e $_