#!/usr/local/bin/perl

while ($line = <STDIN>) {
        last unless ($line =~ ?\bthe\b?);
        print ("$`$'");
        reset;
}
