3 lines
77 B
Awk
3 lines
77 B
Awk
BEGIN { RS = "A" }
|
|
{print NF; for (i = 1; i <= NF; i++) print $i ; print ""}
|
BEGIN { RS = "A" }
|
|
{print NF; for (i = 1; i <= NF; i++) print $i ; print ""}
|