#!/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";

--------------------------------------------------------
#!/usr/local/bin/perl -w

@badarray = ((1, 2), (3, 4), (5, 6));

@goodarray = ([1, 2], [3, 4], [5, 6]);

print "The Bad Array: @badarray\n";
print "The good Array: @goodarray\n\n";

#print "First element of bad is: $badarray[0]\n";
#print "First element of good is: $goodarray[0]\n\n";

#print "Real first element of good is: @{$goodarray[0]}\n";
#print "First element of first element of good is: $goodarray[0][0]\n";

--------------------------------------------------------
#!/usr/local/bin/perl -w

#What will each of the following print statements print?
#1
print "Hello\nWorld\n";
#2
print 'Hello\nWorld\n';

print "\n\n";
#3
print 'It does the \t same thing \t for tabs, too!\n';

print "\n\n";
#4
print "It does the \t same thing \t for tabs, too!\n";

-------------------------------------------------------
#!/usr/local/bin/perl -w

@a = (1, 3, 5, 7);
print "The first ".@a." values are @a\n";

$" = ",";
print "The first ".@a." values are @a\n";

--------------------------------------------------------
#!/usr/local/bin/perl

$a = "he\ullo \Uthe\Ere";

print "Well, $a!\n";

--------------------------------------------------------
#!/usr/local/bin/perl

if ("0"){
  print qq("0" is true\n);
}else{
  print qq("0" is false\n);
}
if ("00"){
  print qq("00" is true\n);
}else{
  print qq("00" is false\n);
}

--------------------------------------------------------
#!/usr/local/bin/perl

$var1 = 124;
$var2 = "Hello, how are you?";

@var1 = (124, 45, 3.25);
@var2 = split (/ /, $var2);

print "\$var1 = $var1\n";
print "\$var2 = $var2\n\n";

#print "Array 1 = @var1\n";
#print "Array 2 = @var2\n";
#$" = ", ";
#print "Array 2 (with different separator) = @var2\n";

#print "Last index of \@var1 is $#var1\n";
#print "Last index of \@var2 is $#var2\n";

#print "$var2[0] - $var2[1] - $var2[2] - $var2[3]!\n";
#print "$var1[0] - $var1[1] - $var1[2] - $var1[3]!\n";