Advanced Thanks Mahi$digits = "123456789"; @nonlap = $digits =~ /(\d\d\d)/g; @yeslap = $digits =~ /(?=(\d\d\d))/g; print "Non-overlapping: @nonlap\n"; print "Overlapping: @yeslap\n"; Out Put : Non-overlapping: 123 456 789 Overlapping: 123 234 345 456 567 678 789
In reply to Explanation for Reg Expr by decoder
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |