@_ = ($s, @lines);

&suchstring(@_[0], @_[1]);
&schleife;