Select Code to Download

use strict;
use warnings;
...

    print "'$vmstr': \$digits '$digits'\n";
}

'0': $digits '0'
'01': $digits '01'
...
'000': $digits '000'
'1': $digits '1'
'10': $digits '10'