my ($last_char_digit) = ($string =~ /(\d)\z/);