Select Code to Download

Client|Counts by Month
IBM | February 1 March 5 July 4
Oracle| January 3 March 4 April 6 May 5
RedHat | March 2 June 3 August 1

# warning windows double quotes!
perl -MData::Dump -F"\s*\|\s*|\s" -lane "next if $.==1;$r{$F[0]}={@F[1
+..$#F]};END{dd %r}" inputtable.txt
...
  "RedHat",
  { August => 1, June => 3, March => 2 },
)

perl -MData::Dumper -F"\s*\|\s*|\s" -lane "next if $.==1;$r{$F[0]}={@F
+[1..$#F]};END{print Dumper \%r}" i
nputtable.txt
...
        };