BEGIN { RS = "A" }

{print NF; for (i = 1; i <= NF; i++) print $i ; print ""}