Help for this page
Select Code to Download
Select
or
download this
my $l_max = 30; $str =~ s/(.{0,$l_max}) /$1\n/g;