$_ = 'pig dog goggles';
my @hits = /g/g;
print "@hits\n";