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 }
That's one of those good habits to get into when handling unreliable input data and trying to format it for nice, coherent printing.