Select Code to Download

$_ ="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 '$adjectiv
+e', is something you $verb.\n";
}