$scalar="PERLPERBPERCPERD";
$homework = join ' ', $scalar =~ /(.{4})/g;
print $homework;