view release on metacpan or  search on metacpan

CLAUDE.md  view on Meta::CPAN

if ($html =~ /todayData:\{[^}]*answer:"([A-Z]+)\s*"/) {
    print lc($1), "\n";
}

# Extract all pastData answers
while ($html =~ /answer:"([A-Z]+)\s*"/g) {
    print lc($1), "\n";
}
EOF

chmod +x /tmp/extract_answers.pl
cat /tmp/wordle_page.html | perl /tmp/extract_answers.pl > /tmp/all_answers.txt

# Remove duplicates while preserving order (newest first)
cat /tmp/all_answers.txt | awk '!seen[$0]++' > /tmp/nyt_answers_unique.txt

# Reverse to get chronological order (oldest first: cigar → latest)
tail -r /tmp/nyt_answers_unique.txt > /tmp/nyt_answers_final.txt

# Verify: should start with "cigar" and end with today's answer
head -1 /tmp/nyt_answers_final.txt  # Should be "cigar"