my $x="AAC\nGTT";

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