Less than optimal, but has the last \n $_=pop;s/\d/$"x$&/eg;s|((..)*?.) |$1.|g;s|(.{8}).?|$1\n|g;s/./ $&/g;print Etienne ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe