my ($name,$counter) = $entry =~ m{ (.*?) ([a-z]) \.txt }x;