getting error in regular expression

[lakshmikant]

$digits = "123456789";
@nonlap	= $digits =~ /(\d\d\d)/g;
@yeslap = $digits =~ /(?=\d\d\d\)/g;
print "non-overlapping: @nonlap\n";
print "overlapping: @yeslap\n";

can anyone tell me whats wrong with it, I am not able to get the answer.
code is in perl

[numberwhun]

First, please use CODE tags!

Second, your topic is "Error in Regular Expression", yet you don't provide any error from the script execution. You need to please provide more information about what is happening before we can help you. Also, what are you expecting to see?

Regards,

Jeff

[sabari]

TRY THIS....

$digits = "123456789" ;
(@nonlap) = $digits =~ /(\d\d\d)/g;
(@yeslap) = $digits =~ /(?=\d\d\d)/g;
print "non-overlapping: @nonlap\n";
print "overlappin g: @yeslap\n";