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