Select Code to Download

#! perl -slw
use strict;
...
brain00002
kidney0003
brain00003

[14:52:38.81] C:\test>junk58
{
...
  kidney => ["0003"],
  lung   => ["0001"],
}