$_ = $digit;
s/(\d)/$1/;
$digit = $_;