#!/usr/local/bin/perl 

$input = <STDIN>; 
$position = index($input, "the"); 
if ($position >= 0) { 
    print ("pattern found at position $position\n"); 
} else { 
    print ("pattern not found\n"); 
} 

   