Read as: "lookahead (and capture) 3 digits; then step forward 1 anything".
$s = '1234567890';;
print $1 while $s =~ m[(?=(\d{3})).]g;;
123
234
345
456
567
678
789
890
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.