in reply to I can't believe this string is that weird

while ($can = <BOX>) { <- reads one line $can = <BOX>; <- reads another

Is that really what you wanted to do? I think the second line should be deleted.