# Instead of the existing split in the code I wrote...
my ($pre, $possible) = split / ([^ ]+)$/, $stu;