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]+)/;

[download]

In Section Seekers of Perl Wisdom