262 :
e2j:
"\"ってのはリファレンスを得る演算子です
$foo = 2;
$bar = \$foo;
print ${ $bar };
print ${ \ 2 };
>>258に追加
無茶苦茶ですがこういうことも可能です。
print EOD;
${\do{
use strict;
print "Hello world\n";
my $foo = my $bar = 1;
foreach my $i(0 .. 5){
$foo += $i;
}
$foo + $bar;
}
EOD