$var='dasjkelrjojasfseraosfijdsfjwerodogjwrjkwefdojvgdkjljwerosjoadewrdsafderaf';
my @list = split /.{20}/, $var;
$var = join (" ", @list);
print $var;