Select Code to Download

>perl -wMstrict -le
"my $foo = 'Bar';
...
 print $hash{ $foo . 'Baz' };
"
Quux

>perl -wMstrict -le
"my @ra1 =   (   0,  1,    2,    0,     3,  -1);
...
1: 'ok'
2: 'fine'
3: 'great'