Select Code to Download

my $str = "this is just a test\nthis is another test\nthis is yet anot
+her test\n";
$str =~ s/(.{5})/$1\n/sg;
print $str;

---start output---
this 
...


---end output---