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

##</code><code>##

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