while ($seq =~ /(.{3})/sg) { # Substring in $1 ... }