Select Code to Download

use strict;
use warnings;
...
        }
   map  { [ $_, m{^\s*([\d.]+)([BKMGTEPZY]?)\s+(.*)} ] }
   <>;