Select Code to Download

perl -anF"\|" -le"$f{shift@F}=[@F[1..$#F]]" pipe.txt

P:\test>perl -MData::Dumper -anF"\|" -le"$f{shift@F}=[@F[1..$#F]]}{pri
+nt Dumper \%f" pipe.txt
$VAR1 = {
...
                 ]
        };