$ perl -wle'$h{ -extended => "no" } = 1; print for keys %h' | od -c 0000000 - e x t e n d e d 034 n o \n 0000015