Select Code to Download

#!/usr/bin/perl -w
use strict;

...
foreach $element (grep { !/\s/ } @words) {
   print "Element ", sprintf( "%02d", $count++ ), ": $element\n";
}

Element 00: I
Element 01: am
Element 02: Sam
...
Element 05: I
Element 06: am
Element 07: .