## Your code goes here #### #!/fs/COTS/gnu/bin/AIX/perl $raw = pack 'H*', '00000034000031b110191403b8811bb1366e4'; print for reverse unpack 'dCCVV', reverse $raw #### #!/fs/COTS/gnu/bin/AIX/perl $raw = pack 'H*', '00000034000031b110191403b8811bb1366e4'; print $_, "\n" for reverse unpack 'dCCVV', reverse $raw #### #!/fs/COTS/gnu/bin/AIX/perl -l $raw = pack 'H*', '00000034000031b110191403b8811bb1366e4'; print for reverse unpack 'dCCVV', reverse $raw #### #!/fs/COTS/gnu/bin/AIX/perl $raw = pack 'H*', '00000034000031b110191403b8811bb1366e4'; say for reverse unpack 'dCCVV', reverse $raw