Select Code to Download

$ perl -Mstrict -Mwarnings -E '
my $x = join("expression", "list");
...
'
list
list

print 'Tabbed items: ', join("\t", @items), "\n";

sub process_record
{
    my $array_ref = shift;
    my $record = join q[], @{$array_ref};
    ...