Mistři v programování na #hovnokod

Perl #510

my @idx = map{ (split(/\|/, $_))[0] || () }
	    map{ io($_)->chomp->slurp } 
		io($boardsdir)->filter(sub{ my $f = fileparse($_->name, qr/.txt/i);
					    $_->name =~ /\.txt$/i and grep{$_ eq $f} @board;
					})->all_files;

HovnoKod,