use Path::Tiny qw/ path /;

        if( not path( $direct, $yr )->exists ) {
            path( $direct, $yr )->make_path;
        }

@Old = path( $direct, $yr )->children;

##</code><code>##

        my $INPUT = path( $inddirect, "company$qtr$yr.idx" )->openr;


        my $OUTPUT;
        if( $yr == $startyear && $qtr == $startqtr ) {
            $OUTPUT = path( $outfil )->openw; ## clobber
        } else {
            $OUTPUT = path( $outfil )->opena; ## append
        }
        
        
        
##</code><code>##

my @FormGetRes = (
    '(10-K )',
    '(10-K405 )',
    '(10KSB )',
    '(10-KSB )',
    '(10KSB40 )',
    '(10-KT )',
    '(10KT405 )',
    '(10-Q )',
    '(10QSB )',
    '(10-QSB )',
    '(10-QT )',
);

@FormGetRes = map { qr{^$_(?!/)}s } @FormGetRes;



          RELOOP:
            for my $re ( @FormGetRes ) {
                if( $form_type =~ $re ) {
                    print OUTPUT "$fullfilename\n";
                    $count++;
                    last RELOOP;
                }
            }