open(FH,"file.txt");
@arr=<FH>;
$var=join("",@arr);
if($var=~ /january/)
{
print "january\n";
}
else
{
print "january not present\n";
}
if($var=~/february/)
{
 print "february\n";
}
else
{
print "february not present\n";
}
if($var=~/egypt/)
{
print "Egypt is present";
}
else 
{
print "Egypt not present";

}

etc...........