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