$"=!s//99/;split 3,'3s3$_ bottle$_[$_>1] of beer3 on the wall3, 3.
3$_[$_--,7+s#^0#99#]3Take one down and pass it around3Go to the store and buy some more3
';print eval"qq*@_[split//,23425642359]*,"x$_