#!/usr/local/bin/perl

$input = <STDIN>;
$position = $found = 0;
while (1) {
        $position = index($input, "the", $position);
        last if ($position == -1);
        if ($found == 0) {
                $found = 1;
                print ("pattern found -- characters skipped:");
        }
        print (" $position");
        $position += 1;
}
if ($found == 0) {
        print ("pattern not found\n");
} else {
        print ("\n");
}
