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

my $sentence = "I am Sam.  Sam I am.";
my @words = ( $sentence =~ /(\w+|\s+|[[:punct:]]+)/g );
my $element;
my $count = 0;
foreach $element (grep { !/\s/ } @words) {
   print "Element ", sprintf( "%02d", $count++ ), ": $element\n";
}