if($firstperlbook=~/^Programming Perl/i){
   $vote="Programming Perl";
}