#!/usr/bin/perl

    # std.pl

    use strict;
    use warnings;

    while (my $line = <STDIN> ){

        if ($line =~ /te/){
            print "hi";
        }
    }