Beginner Event 2: True Type sub calculate_truetype(@fonts) {
my @truetypes = grep { $^a ~~ /\(TrueType\) $/ }, @fonts;
say join("\n", @truetypes);
say "";
say "TrueType: " ~ +@truetypes;
say "Total: " ~ +@fonts;
};
/me vomited looking on proposed solution by MS guys...