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