get_config(split /$s/,$_);

##</code><code>##

  DB<100> sub get_config{ print scalar(@_), join(' ',@_),"\n"}

  DB<101> $s=' ';

  DB<102> $_=qq(abba baba);

  DB<103> get_config(split /$s/,$_);
2abba baba