Perl script for counting gene expressions (for Matt Lambert).