Select Code to Download

sub find_all_textfiles {
    my ($dir) = @_;
...

    return @found;
}

use strict;
use warnings;
...
    }
    return $a_text;
}

use strict;
use warnings;
...
    }
    return @text;
}

use strict;
use warnings;
...

    return $a_text;
}

sub process_text {
    my ($a_text) = @_;
...
    ##
    print "[Debug]\n";
}