#!/usr/bin/perl

## prints all the lines that contain the string the
## how to use it:  perl t.pl input_file

use strict;

my $line;

while ($line = <>)
 {
   if ($line =~ /the/) { print $line;} 
 }