my ($fruit, $value) = "Apple banana 100" =~ /^(.*\S)\s+([0-9]+)/;