use POSIX;$text = "Here's the text!";print "The substring starts at position " . strstr $text, 'text';