#!/usr/bin/perl
use warnings;
use strict;

"AAC\nGTT"=~/^.*$/mg;
print "\$& scalar context => $&\n";

my @matches = "AAC\nGTT"=~/^.*$/mg;
print "\$&   list context => $&\n";
print "\@matches => @matches\n";

__END__

output:
$& scalar context => AAC
$&   list context => GTT
@matches => AAC GTT