Select Code to Download

if ( ( my $position = index $page, "word" ) >= 0 ) {
    print "Found at $position.\n";
}