Select Code to Download

#!/usr/bin/env perl
use strict;
...
my $pipe_delim = join '|', @ready_to_join;

say $pipe_delim;