Help for this page
$_ = $digit; s/(\d)/$1/; $digit = $_;
#1 $_ = $digit; ... #4 $digit =~ s/.*(\d).*/$1/;