>perl -wE "q(a@) =~ /((?:(?:[^\n@]+|@[^@]*@)\n?)+)/; say $1"
a

>perl -wE "q(a@) =~ /((?:(?:[^\n@]|@[^@]*@)[^\n]*\n?)+)/; say $1"
a@