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

while ($can = <BOX>) { $can = <BOX>;
This is reading two lines from <BOX> into $can, and discarding the first. Just delete the second $can = <BOX>

Replies are listed 'Best First'.
Re^2: I can't believe this string is that weird
by girarde (Hermit) on Sep 19, 2008 at 20:15 UTC
    Yes, FunkyMonk and ikegami are both right. I'm still puzzled, because of the times I seem to remember having to do it this way, but I'm not going to argue with results.