#scalar usage:
my $x="AAC\nGTT";
my $i=0;
while ($x=~/^.*$/mg) {
    print $&; 
}

#or do the loop by foot if you know how many times it will match:

my $x="AAC\nGTT";
$x=~/^.*$/mg;
print $&;
$x=~/^.*$/mg;
print $&;

##</code><code>##

my $x="AAC\nGTT";

my @allhits= $x=~/^.*$/mg;
print join(" - ", @allhits),"\n";