Mine

#!/usr/bin/perl
use warnings;
use strict;

open(data, "test");

my $binstring = <data>;
my $i = 1;

while(1)
{

        $varz = substr($binstring, $i, 1);
        print $varz;
        $i++;

        if ($i = 5)
        {
                last;
        }

}

close(data);