Select Code to Download

@array = <FILE>;
@pattern = <FILE2>;
local $" = '|';
...
        print $line;
    }
}

@array = <FILE>;
@pattern = map "\Q$_\E", <FILE2>;
local $" = '|';
...
        print $line;
    }
}