$s = '1234567890';;

print $1 while $s =~ m[(?=(\d{3})).]g;;
123
234
345
456
567
678
789
890