use strict;
my @answer = qw(Not so much perl as perlmonks - I recently tried to ++ an article on the register. Doh!);
foreach (@answer){print "$_ ";}
print "\n";