Select Code to Download

perl -e"open $fh[$_],'>','split.'.$_ for 0..9"
-nle"print {$fh[substr $_,3,1]} $_" big.log