Select Code to Download

my %result = map {split /\|/} <FILE>;

use strict;
use warnings;
...
   };

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

[johngg@ovs276 perl]$ cat spw708412.dat 
abc|123
...
           'abc' => '123'
         );
[johngg@ovs276 perl]$