while($char = getc(SOURCE)){

##</code><code>##

while(defined($char = getc(SOURCE))){