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