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;
                }
            }