Select Code to Download

#!perl
use strict;
...
my $w = join('', @w);
my $q = Math::BigInt->from_hex($w);
print $q->as_hex();