#!/usr/bin/perl

    # std.pl

    use strict;
    use warnings;

    while (my $line = <STDIN> ){

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

##</code><code>##

# std.txt
a
three
text