Word wrap: Difference between revisions
Content deleted Content added
m →{{header|Perl}}: forgot the bad example |
m →{{header|Perl}}: copy/paste error #2 |
||
| Line 349: | Line 349: | ||
my $_ = $s; |
my $_ = $s; |
||
s/\s*(.{1,66}) |
s/\s*(.{1,66})\s/$1\n/g, print; |
||
$_ = $s; |
$_ = $s; |
||
s/\s*(.{1,25}) |
s/\s*(.{1,25})\s/$1\n/g, print;</lang> |
||
</lang> |
|||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |
||