in reply to Do pigs get athlete's foot?

um... Did you test this? You might want to check the return value of chomp. If you don't want the newline you can do this: 
/(.*)/

[download]
but why even bother, just change that last print to 
print @toes

[download]
Then you don't have to take off those new lines in your map statement.

The 15 year old, freshman programmer,
Stephen Rawls

Replies are listed 'Best First'.
Re: Re: Do pigs get athlete's foot?
by t'mo (Pilgrim) on Jun 29, 2001 at 06:45 UTC

    "Did you test this?" Test 'poetry'? No. But after you pointed it out, I did and see what you mean. Note the revised edition:

    ...
my @toes = map
  "This little piggy " . $_,
  <DATA>;

print @toes;
...

    [download]
[reply]
[d/l]

In Section Perl Poetry