use strict;
use warnings;
use feature 'say';
use File::Spec::Functions;
use Font::TTF::Useall;

my $dir = catdir $ENV{ SystemRoot }, 'Fonts';

say 'Looks like these our fonts are sans serif and regular:';

for my $fn ( glob( catfile $dir, '*.{ttf,otf}' )) {
    my $f = Font::TTF::Font-> open( $fn );

    next unless $f-> { name }-> read-> 
        find_name( 2 ) eq 'Regular';

    next unless $f-> { 'OS/2' }-> read-> 
        { sFamilyClass } >> 8 == 8;
    
    say $fn
}