#!/usr/bin/perl -w
use strict;

while (<>) {
    chomp;
    print "file is [$_]\n";
    if ( ! -e $_ ) {
        print  "#$_\n";
    } else {
        print "$_\n";
    }
}

##</code><code>##

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