Select Code to Download

#! perl -slw
use strict;
...
my @undefsRemoved = grep defined(), @found;

print for @undefsRemoved;

c:\test>junk
Use of uninitialized value $found[12] in join or string at C:\test\jun
+k.pl line 15, <> line 178691.
...
Use of uninitialized value $found[18] in join or string at C:\test\jun
+k.pl line 15, <> line 178691.
Use of uninitialized value $found[19] in join or string at C:\test\jun
+k.pl line 15, <> line 178691.
could|someone|recommend|aw|or|king|perl|module|to|split|concatenated|w
+ords||||||||

my @undefsRemoved = grep defined(), @found;