open(FILE,"text.txt">
$count=0;
while(<FILE>){
        if($_ =~ /saravanan/mg){ 
               $count++;

}
}