Select Code to Download

use strict;
use warnings;
...
/^authentication\s+(\w*)(?{$authentication.= $1 . ' '})/ for @candidat
+es;

print $authentication;

for (@candidates) {
    $authentication.= $1 . ' ' if /^authentication\s+(\w*)/;
}

open shared