1	#!perl
 2	# Utility vars
 3	
 4	my $foo="Hello there"
 5	
 6	# End utility vars. When do we make these go away?
 7	
 8	######################################################
 9	# We loop over each character and print them out
10	# this is mostly so that we can do the fnorzle with
11	# boopat over the dulwhup. Which can really pjorn your
12	# noodle
13	
14	
15	for my $i (0.. length($foo)-1) {
16	    print "$i ",substr($foo,$i,1),"\n";
17	}

##</code><code>##

syntax error at D:\perl\scratch\errors.pl line 15, near "$i ("
Execution of D:\perl\scratch\errors.pl aborted due to compilation errors.