Help for this page
Select Code to Download
Select
or
download this
while ($seq =~ /(.{3})/sg) { # Substring in $1 ... }