c:\@Work\Perl>perl -wMstrict -le
"my @x = (
   ' foo ', ' bar', 'quz ', 'x y', ' a b c ', '  ', ' ', '',
   '0', ' 0', '0 ', ' 0 ',
   );
 ;;
 s/^\s+|\s+$//g for @x;
 @x = grep length, @x;
 printf qq{<$_> } for @x;
"
<foo> <bar> <quz> <x y> <a b c> <0> <0> <0> <0>