I'm not aware of any builtin methods for handling this. However, you could use overload and specify your own iteration function.

Example:

use strict;
use overload "<>" => \&bin_iterate;

while (<>)
{
  .
  .
  .
}
[download]