Help for this page

Select Code to Download

Select or download this

# untested ...

...
while(<$sorted>) {
  print((split /\x00/, $_, 3)[2]);
}