while($char = getc(SOURCE)){

Make this

while(defined($char = getc(SOURCE))){
[download]

As suggested, if $char encounters a "0", it'll stop.