#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 $&;