$_ = ' RAGGTS ';

while (/[RS]/)
{   s/ ([A-Z]*)R([A-Z]*) / $1A$2 $1G$2 /g;
    s/ ([A-Z]*)S([A-Z]*) / $1C$2 $1G$2 /g;
}

print;