open(HD,"file") or die ("Cant open");
$text=<HD>;
$text=~s/ //g;
chomp $text;

$pattern="word";
$offset = 0;

$pos=index $text,$pattern,$offset;

while ($pos != -1) 
{
	print "Found $pattern at $pos\n";
	$offset = $pos + 1;
        $pos = index($text, $pattern, $offset);

}