Select Code to Download

my $facts = <<END_FACTS;
owns merlyn gold
owns Ovid books
...
                                                                      
+                                                                     
+                  
my $query = qr/owns (\S+) gold/;
my @who = $facts =~ /$query/mg;

use Data::Dumper;
use constant SUCCEED => qr{(?=)};
use constant FAIL    => qr{(?!)};                                     
+                                                                     
+                                                  
...
        return $result;
    }
}

$VAR1 = [
          'merlyn',
          'gold',
          'kudra',
          'gold'
        ];