s/%/ing,/,$_=($i++?$i-1+print"
":a)." $_",print"On the $i",(st,nd,rd)[$i-1]||th," day of Christmas,
my true love gave to me:
",$@=$_.$@for split/^/,"partridge in a pear tree.
turtle doves and
French hens,
calling birds,
golden rings,
geese a-lay%
swans a-swimm%
maids a-milk%
ladies danc%
lords a-leap%
pipers pip%
drummers drumm%
"