use strict;

my $var = 'x' x 100;
my $max_length = 10;

$/ = \$max_length; # input record separator
$\ = "\n";         # output record separator
open my $FH, "<", \$var or die;
print while <$FH>;