Select Code to Download

use strict;
use warnings;
...
my( $number, $depth ) = @ARGV;
my @s = partition $number, $depth;
print "@$_\n" for @s;