my $s = "a\nb\nc\n";
my @g   = map "[$_]", $s =~ /(.)$/g;
my @gs  = map "[$_]", $s =~ /(.)$/gs;
my @gm  = map "[$_]", $s =~ /(.)$/gm;
my @gsm = map "[$_]", $s =~ /(.)$/gsm;
print "g:   @g\n";
print "gs:  @gs\n";
print "gm:  @gm\n";
print "gsm: @gsm\n";
__END__
g:   [c]
gs:  [c] [
]
gm:  [a] [b] [c]
gsm: [a] [b] [c] [
]