・bare word ([_A-Za-z]\w*) を使ってクォートを省く。 ・長い名前の関数を複数回使うなら、型グロブで別名を作る。 　*P=*param; ・代入式の戻り値を使う。 $foo=$bar=0or$baz=1; ・if(A){B}else{C} より A?do{B}:do{C} の方が短い。B や C を修飾子 無しの単純文で書けるなら、更に A?(B):(C) にできる。 ・$n||=default; 、$n&&=n($n); 、$n=x()||y()||default; 等で 　分岐と代入を同時にやっつける。 ・if(!$x){ ... } より $x||do{ ... } の方が1文字短い。 ・eval join ... で、コードの共通部分を圧縮する。 ・関数の直後に + を置いて開き括弧を守る。 print+(localtime)[3]; ・shift や $_[0] を使う場面で、可能ならば pop を使う。 ・引数が一つなら "foo$_[0]" は "foo@_" と書ける。 ・"文字列、ヒアドキュメント中に @{[ perl式 ]} 書けばその結果が出力される