Select Code to Download

#!/usr/bin/perl 
use strict;
...
total cpu sold: 51
total printers produced: 19
total monitors produced: 149

Output:
$VAR1 = {
          'mice' => [
...
                         '5:68'
                       ]
        };