i want to diide given string in to words w/o using split function but by using ... regexp.

Um... split uses a regexp. Are you saying you want to write a new function that works just like split, but has a different name? How about:

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

That's not exactly the same as "split", but it's pretty close. Anyway, it's not clear what your real goal is. I think that something like your second "example" could be done using split this way:

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