A code search tool written in Perl