$, = ", ";
$\ = "\n";
print 'aab' =~ /\Ga/g;  # 'a', 'a'.
print 'aba' =~ /\Ga/g;  # 'a'.      Anchored at pos.
print 'baa' =~ /\Ga/g;  # Nothing.  Also anchored to start.