Select Code to Download

Select or download this

@folders=glob("*"); #to get all folders in directory; extension ("*") 
+as wildcard to get all names
foreach$folder(@folders) #to speak to each element in directory
    {
    next if ($folder!~/^UNITAS_/); #skip elements which do not start w
+ith "UNITAS"

Select or download this

# to get UNITAS_* folders in directory
my @folders = glob "UNITAS_*";
...
foreach my $folder ( @folders )
    {

Select or download this

        $head=<TRF>; #remove the first four lines of the trf-table.txt
+ file
        $head=<TRF>;
        $head=<TRF>;
        $head=<TRF>;

Select or download this

        undef = <TRF>; #remove the first four lines of the trf-table.t
+xt file
        undef = <TRF>;
        undef = <TRF>;
        undef = <TRF>;

Select or download this

        # remove the first four lines of the trf-table.txt file
        undef = <TRF> for 1 .. 4;