($j=$i)    =~ s/G(.+)/Galpha-$1/;
   my @values = ($j =~ /(Galpha-[it])/  
                    ? map{$1.$_}1..3 
                    : ($j)
                 );