Select Code to Download

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

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