Select Code to Download

#! perl -slw
use strict;
...
891 Ruth Complete Blood Count 150 4/1/2012 12:47
891 Ruth Mantoux Test 100 4/1/2012 12:47
891 Ruth X-Ray Chest 150 4/1/2012 12:47

C:\test>junk59
{
...
  "X-Ray"      => ["Ruth"],
}