Hi all,
I have a bunch of jokes that people have forwarded me over the years[1] and they all have really bad formatting [2]. I am lazy and want to do as much formatting of the jokes as I can automatically. I have tried this piece of code to get rid of any '>' or whitespace charachters before the 'beginning' of each line of the text, but it just returns the same text as before: foreach my $line (@body) { $_ = $line; s/^(?:>|\s)*(.*)$/$1/g; print; } Any ideas what I am doing wrong here[3] TIA Will. [1] If anyone else has any I would be very grateful if they would forward them to me as I have started an archive. [2] An example taken from one of the emails: > > Q: Why aren't the England football team allowed to own a dog? > > A: Because they can't hold on to a lead. > > > > Q: What's the difference between the England team and a tea-bag? > > A: The tea-bag stays in the cup longer. > > > > Q: What's the difference between a packet of sellotape > and Phil Neville. > > A: One's a glueless kit. > > > > Oxo were going to bring out a Euro 2000 commemorative cube > painted red, > white > > and blue in honour of the > > England squad. But it was a laughing stock and crumbled in the box. [3] I bet you do :-)