Select Code to Download

my $match_queue = qr{ QUEUE   # literal word 'QUEUE'
                      \(      # literal open paren
...
    printf OUTPUT "QUEUE(%s) ------> RNAME(%s)\n",
                  $queue, $rname;
}