Select Code to Download

#!/usr/bin/perl

...
  my $padded = $string . 0 x ( - length($string) % $want );
  printf "%25s => %s\n", $string, $padded;
  }

                        f => f0000000
                       ff => ff000000
...
   ffffffffffffffffffffff => ffffffffffffffffffffff00
  fffffffffffffffffffffff => fffffffffffffffffffffff0
 ffffffffffffffffffffffff => ffffffffffffffffffffffff