Help for this page

Select Code to Download

Select or download this

...
 while($line = <$IFH> ){
...
     if(not($line eq "")) { ##### why does $line equal "" ?
       my @tmp = split(//,$line);
...