sub input {

   if ( $_[0] =~ /(.+)\s+(.+)\s+(.+)/) {
         print "3 params\n";
   } elsif ( $_[0] =~ /(.+)\s+(.+)/) {
         print "2 params\n";
   } elsif ( $_[0] =~ /(.+)/) {
         print "1 params\n";
   }   

}