#!/usr/local/bin/perl -w 
$mystring = "Hello World";
@myarray = split (//, $mystring);
print "@myarray\n";
print "5th element of myarray is $myarray[4]\n";
print "W is located at position ". index($mystring, "W") ." in the string\n";