$_=get;/H/ ?? say "Hello World" !! /9/ ?? (for 0..1 {my ($A,$b,$c,$d,$e)=(99," bottles of beer","Take one down and pass it around,"," on the wall"," bottle of beer");say "$A$b$d, $A$b.
$c {--$A}$b$d." while $A >2;say "2$b$d, 2$b.
$c 1$e$d.
1$e$d, 1$e.
$c no more$b$d
No more$b$d, no more$b.
Go to the store and buy some more, 99$b$d."}) !! say "QQQ\n"x 3
Note that non-ascii characters in the above source code will be escaped (such as \x9f).