gets
($><<sub(/^00/){9}
$_[0]-=1)while~/\d/