Help for this page

Select Code to Download

Select or download this

while ($protein =~ /\G(.)/gc) {
    print $1;
    ...
};