LPM: filtering

[Mik Firestone]

Sorry.  If you want to use the loop version, there has to be one push of the
string onto to array after the loop.

Ie,
> With neat tricks, you could probably come up with a more generic solution:
>     while ( length( $string ) > 50 ) {
> 	$string =~ s/^(.{0,50} (.+)$/$2/;
> 	push @stuff, $1;
>     }
      push @stuff, $string;

Sorry.

-- 
Mik Firestone fireston at lexmark.com
When I become an Evil Overlord:
No matter how well it would perform, I will never construct any sort of
machinery which is completely indestructable except for one small and
virtually inaccessible vulnerable spot.