Steve Flynn wrote: > Ran the perl version Here's another perl version: #!/usr/bin/perl use strict; use warnings; local $/ = ''; my $text = <>; $text =~ s/\n//g; $text =~ s/(.{20})/$1\n/g; print $text; Cheers, Dave