$ perl -e 'use strict;
sub input{
  my (@params) = $_[0] =~ m/([\S]+)/g;
  print scalar @params ," parameters supplied\n";
}
input(join " ", @ARGV);
' Fear Anger Hate Darkside
4 parameters supplied