Select Code to Download

my @apps = split ' ', $form{'AppName'};

$ perl -le'print 0+( @a =            qw( a b c ) )'
3
...

$ perl -le'print 0+( @a = split " ",   " a b c " )'
3