perl -e 'for ( $dec = 0 ; $dec <= 300 ; $dec++ ) { $one =~ /\d+${1}$/;print "$dec -> $one\n"; }'