#!/usr/bin/env perl

use common::sense;

opendir my $dir, "." or die "Can't find current dir: $!";
my @folders = grep { -d && !/^\./ } readdir $dir;
closedir $dir;

for my $lang (@folders) {
	say "- $lang";

	opendir my $ldir, $lang or die "Can't find dir $lang: $!";
	my @files = grep { /\.txt/ } readdir $ldir;
	closedir $ldir;

	for my $file (@files) {
		my $filename = "$lang/$file";
		my $size = -s $filename;
		if ($size < 80) {
			say "  - $file => $size";
			unlink $filename;
		}
	}
}