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