One of the ways: #!/usr/bin/perl use strict; use warnings; while (<>) { chomp; if (/^$/) { print "\n"; } else { print "$_,"; } } On Wednesday 01 June 2005 16:19, Samuel Fourie [ MTN - Innovation Centre ] wrote: > d 10 > bbb 20