#!/usr/bin/perl

$p[0]="1. Education Program Finder (EPFinder)";
$p[1]="2. People profiler";
$p[2]="3. Blog Personalization & Recommendation";
$p[3]="4. Job Opportunity Finder (JobFinder)";
$p[4]="5. PowerPoint Search Tool";
$p[5]="6. Acronym disambiguation";
$p[6]="7. Automated Instant Messenger Responsing System"; 
$p[7]="8. Web Dictionary";
$p[8]="9. Course Resource Search Engine"; 
$p[9]="10. Coreference Resoultion"; 
$p[10]="11. SearchMark Personal Bookmarking System"; 
$p[11]="12. Intelegent Resturuant Search Engine"; 
$p[12]="13. Sentiment Analysis of Product Reviews on Blogs";
$p[13]="14. Podcast Top Topics"; 
$p[14]="15. EXpert FINDer (EXFIND)"; 
$p[15]="16. Text _Communication_ Analysis"; 
$p[16]="17. Technical Support Knowledge Base"; 
$p[17]="18. Opinion Mining on the web"; 
$p[18]="19. Geogle - Web Search Engine Based on Geological Information";
$p[19]="20. Custom Content"; 

for ($i=0; $i<=19; $i++) {
    $a{$p[$i]}=1;
}

$c=1;
foreach $k (keys %a) {
    print ($c<=10? "April 27:" : "May 2:");
    print " $k\n";
    $c++;
}