my ($word, $number) = split /(?<=\D)(?=\d)/;
my ($word, $number) = /^(\D+)(\d+)$/;