print "Found" if index( $string, $substr ) != -1;