> > print $a && 2001, "(a)\n";
> > print $b && 2001, "(b)\n";
> > print $c && 2001, "(c)\n";
> > print $d && 2001, "(d)\n";
> > print $e && 2001, "(e)\n";
> > print $f && 2001, "(f)\n";
> > print $g && 2001, "(g)\n";
> > print $h && 2001, "(h)\n";
> > print $i && 2001, "(i)\n";
> > print $j && 2001, "(j)\n";
> > print $k && 2001, "(k)\n";
> > # ダメかなぁ？わらい
> 間違ってないけどな(´ε｀)
> Perlクイズは面白いので読んでみたらどうだろう。
> http://www.hyuki.com/pq/

$a =     " 1999, 2000, 2001, 2002 ";
$b =     ( 1999, 2000, 2001, 2002 );
$c =     [ 1999, 2000, 2001, 2002 ];
$d =     { 1999, 2000, 2001, 2002 };
$e = sub { 1999, 2000, 2001, 2002 };
$f =   2_0_0_1 ;
$g =  "2 0 0 1";
$h = "\2\0\0\1";
$i =   \2001;
$j =   "1002";
$k = \*_2001;

print substr($a,13,4)             , "(a)\n";
print $b - 1                      , "(b)\n"; 
print $c->[2]                     , "(c)\n";
print grep{ $_ == 2001} keys %$d  , "(d)\n";
print $e->()[2]                   , "(e)\n";
print $f                          , "(f)\n";
print $g =~ tr/ //d,$g            , "(g)\n"; # trの返り値が入るー
print unpack('C*',$h)             , "(h)\n";
print $$i                         , "(i)\n";
print scalar reverse $j           , "(j)\n"; 
print                             , "(k)\n"; # わかんねー

よう、これでどうだ

参考：2001/02/14(水)02時27分03秒