Finding a lost dog's owner with Perl | Hacker News Reader