sub sprit
{
    return ( $_[1] =~ /(.*?)(?:$_[0]|$)/g );
}

##</code><code>##

my @pieces = split /(\s+)/, "hello, yes, I can see you need help.";
print join( ":\n :", "split returned the following pieces", @pieces ), ":\n";