#!/usr/bin/perl
use strict; #enable better debug information
use warnings; # and catch common errors
use feature "say"; #enable the keyword 'say', like print with newline
   #say is covered in section, 2.10
my $x = "now is the time";
say "'is' found at ", index($x,"is");  # 4
say "'aha' found at ", index($x,"aha"); # -1 - since not found
say "'e' found at ", index($x,"e"); # 9
say "second 'e' found at ", index($x,"e",10); # 14 - start at 10
    #the optional third argument specifies where to start