Perlの文字列内に$があるときはエスケープしないとエラーになる。

こんな動きあったっけなー。
すっかり忘れてる。

○ print "sed '/^\$/d'";
× print "sed '/^$/d'";

これはたまたま$と/が予約語でそれが隣接したからだと思うけど
ちょっとめんどくさいね。