perl-mode のインデント

[2002-06-24] の perl-mode のインデントの話についてコメントを頂きま
した。ありがとうございました。"'" で囲まれる文字列は無視して考える
ことにすると、こんな感じで良いみたいです。

if (m|s?https?://[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+|) { # ']) {
    print "hello\n";
}

こういうとき、今までは行末に "# '" だけ書いてしのごうとしていたか
ら、だめだったのだ。

if (m|s?https?://[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+|) { # '
                  print "hello\n";
}