while (my $line = <STDIN>)
{
  print "Line: $line";
  if ($line =~ /te/)
  {
    print "Match !\n";
  }
}