splitting into paras

[Simon Wistow]

On Wed, Jan 11, 2006 at 09:34:33AM +0000, me said:
> On Wed, Jan 11, 2006 at 09:21:59AM +0000, me said:
> > Clearly the Beer Gremlins have made my brain fuzzy 
> 
> Christ I'm a moron.

For what it's worht this no seems to liberally accept all manner of crap 
input

my $crlf = qr/\x0a\x0d|\x0d\x0a|\x0a|\x0d/;
my @paras = split /(?:$crlf\s*)/, $text;