"AAC\nGTT\n"
 ^  $$^  $$

##</code><code>##

$ perl -wle 'print $& while "AAC\nGTT"=~/^.*$/mg;'
AAC
GTT

##</code><code>##

$ perl -wle '"AAC\nGTT"=~/.*^(.*)$/ms; print $1'
GTT