Select Code to Download

use strict;
use warnings;
...
   split m{(?<!:)\s+}, $s;

print Data::Dumper->Dumpxs( [ \ %extract ], [ q{*extract} ] );

%extract = (
             'ABC' => '123',
...
             'aaa' => 'ZZZ',
             'xyz' => '100'
           );