$ perl -E 'say oct "0x47"; say hex "0x47"'
71
71