in reply to
understanding print
I'm sure you have worked out at least one good solution by now, but FWIW, you could try doing this first, before the print statement:
for ( @wrds[11..15] ) { s/^\s+//; s/\s+$//; s/\s+/ /g }
[download]
That's one of those good habits to get into when handling unreliable input data and trying to format it for nice, coherent printing.
Comment on
Re: understanding print
Download
Code
In Section
Seekers of Perl Wisdom