Select Code to Download

my $code = <<END_CODE;
owns(merlyn,gold).
...
my $result = `pl -q -f deleteme.pro -t main`;
unlink($tmpfile);
print $result;

[ ["merlyn", "gold"], ["kudra", "gold"], ]