>perl -wMstrict -le "my ($foo, $bar); my ($no_ws, $some_ws, $lotsa_ws) = ('no_ws', ' some_ws ', ' lotsa ws '); printf qq{'$_' } for $no_ws, $some_ws, $lotsa_ws; print ''; ;; s{ \A \s+ | \s+ \z }''xmsg for grep defined, $no_ws, $foo, $some_ws, $bar, $lotsa_ws; printf qq{'$_' } for $no_ws, $some_ws, $lotsa_ws; " 'no_ws' ' some_ws ' ' lotsa ws ' 'no_ws' 'some_ws' 'lotsa ws'