Select Code to Download

 1    #!perl
 2    # Utility vars
...
15    for my $i (0.. length($foo)-1) {
16        print "$i ",substr($foo,$i,1),"\n";
17    }

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