>>5
文字コードは Shift_JIS だよね？あと $1$3 じゃなくて $1$2 だよね？
Perl 5.8 を使ってるなら、最初で use encoding 'Shift_JIS'; としてみる。
それ以前のバージョンの Perl ならとりあえず /(.*)\Q運営\E(.*)/ としてみる。