Select Code to Download

foreach(1..99){$b="\n$_ bottle@{[$_!=1&&s=>]} of beer";push@a,",\nTake
+ one down, pass it round,$d@{$d=$b.' on the wall'}\n",$d.$b};print re
+verse@a;

seek DATA, 38,0;                                                      
+          
$_=join("",<DATA>);                                                   
+         
...
s/$b/$b-1/e;                                                          
+          
s/ (\$.)/$1 bottles of beer/g;                                        
+          
eval;__DATA__