$_ ="I have a lovely bunch of bananas";
if ( my ($verb, $adjective, $fruit) = /^I (\w+) a (\w+) \w+ of (\w+)/ ) {
    print "It would seem your $fruit, which you describe as '$adjective', is something you $verb.\n";
}