EmpInfo
-------

John #4
- sleep too much 
- came late on 04/04/04
- not shaved on 03/03/04
Kim #45
- good job 
- comes early
Mike #3
- not nice

##</code><code>##

my $nameOfEmp;
my $comments;

open (DATA, "EmpInfo") or die "can't open file\n";
while (my $line = <DATA> ){
if /^$nameOfEmp { next if /^\-; print DATA $comments; }
}


##</code><code>##


EmpInfo
-------

John #4
- sleep too much 
- came late on 04/04/04
- not shaved on 03/03/04
- He is too fat
Kim #45
- good job 
- comes early
Mike #3
- not nice