Select Code to Download

use strict;
use warnings;
...
    print "$accum ";
}
print "\n";

my $s = '/home/code/work';
my $acc;
...
    $acc .= "/$1";
    print "$acc "
}