Re: Sorting challenge

[Kevin Reid]

$_ = <<'EOT';

John Porter wrote:

> Pareto ordering.

EOT
s/^.*>\s+//s;
s/\..*$//s;
require $_;
print $_->more_information;

-- 
 Kevin Reid: |    Macintosh:      
  "I'm me."  | Think different.