while ($line = <STDIN>){
   if ($line =~ /te/){
      print "hi";
   }
}