Select Code to Download

#!/usr/bin/perl -w

...
for ( my $i = 0 ; $i < @parts ; $i++ ) {
  print "$i:  $parts[$i]\n";
}

% ./test.pl
3
...
 new lines and single
1:  quotes
2:   more than' once