Select Code to Download

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

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$