nemesis wrote:
> foreach my $line (@body) {
> $_ = $line;
> s/^(?:>|\s)*(.*)$/$1/g;
> print;
> }Thanks for the suggested improvements. It would have helped if @body wasn't 1 element in size and that element contained the whole of the text :-) Oh, and thanks for the phone support Dean. Will
