Your skill will accomplishwhat the force of many cannot PerlMonks

### Re^3: Drunk on golf: 99 Bottles of Beer

by eyepopslikeamosquito (Chancellor)
 on Jun 03, 2011 at 12:48 UTC ( #907967=note: print w/replies, xml ) Need Help??

```n=0;~/s/ until/, 99\D+/=~\$_="Take one down and pass it around, #{c=n+=
+1," bottle#\$& of beer"," on the wall"}.

#{c}, %s%s.
#\$_"%c;puts\$'+"Go to the store and buy some more"+\$&
```
```n=0;\$_="Take one down and pass it around, #{~/s/;c=n+=1," bottle#\$& of
+ beer"," on the wall"}.

#{c}, %s%s.
#\$_"%c until~/, 99\D+/;puts\$'+"Go to the store and buy some more"+\$&
```
```n=0;n+=1
4-\$.-=1
```
```\$_="Take one down and pass it around, #{~/s/;c=4-\$.-=1," bottle#\$& of
+beer"," on the wall"}.

#{c}, %s%s.
#\$_"%c until/, 99\D+/;puts\$'+"Go to the store and buy some more"+\$&
```
```\$_="Take one down and pass it around, #{c=4-\$.-=1," bottle#{c&&:s} of
+beer"," on the wall"}.

#{c}, %s%s.
#\$_"%c until/, 99\D+/;puts\$'+"Go to the store and buy some more"+\$&
```

Create A New User
Node Status?
node history
Node Type: note [id://907967]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (9)
As of 2017-07-25 23:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
I came, I saw, I ...

Results (383 votes). Check out past polls.