in reply to Tossing unwanted values from returned list

pizza@pizzabox:~/pl$ perl -le'($a, undef, $b) = 1..3; print "$a $b"' 1 3

perl -e"map print(chr(hex(( q{6f634070617a6d692e7273650a}=~/../g)[hex]))), (q{375542349abb99098106c}=~/./g)"