in reply to Counting recurring characters within a list of strings.

@array = ("12G","1G30G","13G24G"); 
$x += tr/G// for @array; 
print "$x\n"

5

[download]

In Section Seekers of Perl Wisdom