http://www.perlmonks.org?node_id=854316


in reply to Re^4: Adding the duplicate data using arrays
in thread Adding the duplicate data using arrays

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