Select Code to Download

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