$var = 'text';
$text = 'This is not a very long string.';
my @array = ();
while (${$var}) {
    push @array, substr ${$var}, 0, 70, undef;
}